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ABSTRACT 


The U.S. Army is working to develop future generations of constructive combat 
simulation systems that can take advantage of the wide availability of high-end Personnel 
Computers (PC). As part of this research and development process, the U.S. Army 
looked to re-engineer a verified and validated legacy combat simulation into a version 
that can operate on a PC using the industry supported and widely used Windows NT 
operating system. Janus, with its availability, familiarity, and applicability, will serve as 
that re-engineering test case. The re-engineered version of Janus will maintain its 
existing functionality, and include additional functionality to support Operations Other 
Than War (OOTW) and expanded Combat Service Support (CSS). In its final form, the 
results of this re-engineering project will produce the Warrior Simulation. Warrior will 
serve as a basis for future simulations. 

This thesis describes the re-engineering activities required to reconstruct the Janus 
architecture from a legacy software simulation system into one possessing an object- 
oriented architecture that complies with Department of Defense’s (DoD) High Level 
Architecture (HLA) standard. 

This research indicates that procedural legacy simulations a be converted into 


an objected-oriented architecture that complies with the HLA standards. 





DISCLAIMER 


The reader is cautioned that computer programs developed in this research may 
not have been exercised for all cases of interest. While every effort has been made, 
within the time available, to ensure that the programs are free of computational and logic 
errors, they cannot be considered validated. Any application of these programs without 
additional verification is at risk of the user. 
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I. INTRODUCTION 


A. BACKGROUND 

Up until just a few years ago, software development was conducted under the auspices 
that a system’ would be developed and maintained for some period of time and then eventually 
replaced by a totally new future system. However as budget purse strings tighten, the increased 
dependence on commercial technology and the use of Commercial-off-the-shelf (COTS) 
products, coupled with the wide spread use of legacy systems, it is becoming increasingly more 
important and highly economical for concerned agencies to explore re-engineering 
opportunities and strategies. Legacy systems like Janus embody substantial institutional 
knowledge which include both basic and refined requirements, design decisions, and 
invaluable advice and suggestions from military leaders that has been implemented over the 
years. To effectively use these assets, it is important to employ a systematic strategy for 
continued evolution of the current system to meet the ever-changing mission, technology and 
user needs. However, knowledge is difficult to aeeover after many years of operation, 
evolution, and personnel change. Janus shunts was originally written some twenty years ago 
using, what many now view as, an archaic and ad-hoc methodology. In addition, Janus has 
experienced a number of updates and maintenance revisions over recent years. Major changes 
occurred during the transition to version 4.0 with the integration of new terrain features such as 
roads, buildings, vegetation, water and other man-made features. The end result is a legacy 
system that lacks the ability to evolve to meet the ever-changing demands needed to continue 


' The systems discussed in the thesis are software intensive: software constitutes a significant portion of the application. Unless 
otherwise noted, the term “system” implies “software system”. 





as a valuable military training and analysis tool. 

Re-engineering has frequently been proven to be more cost effective than new 
development and is also known to better promote continuous software evolution. It is 
essentially building a new system using the existing system as the basis for requirements or 
design. Software re-engineering can defined as the systematic transformation of an existing 
system into a new form to realize quality improvements in operation, system capability, 
functionality, performance, or evolvability at a lower cost, schedule, or risk to the customer 
[Ref. 1]. Such improvements often take the form of increased or enhanced functionality, better 
maintainability, configurability, reusability, and/or other software engineering goals. This 
process involves recovering existing software artifacts from the system and then re-organizing 
them as a basis for future evolution of the system. 

When re-engineering a legacy system, the use of object-oriented techniques introduces 
certain complexities into the software analysis process. Primarily we find, as was the case with 
Janus, that the software system was not originally designed and implemented using an object- 
oriented approach. Thus, the products of reverse engineering, such as requirements or design 
specifications, will probably reflect a functionally based approach. As a result, some form of 
“transformation” of analysis and design is necessary in order to use the specifications. 

Once a realizable specification is obtained, it is often very difficult to quickly determine 
if the specification is in fact a true representation of the desired requirements. Prototyping 
provides a means to validate system requirements while simultaneously allowing a prospective 
user with the opportunity to get a brief feel for aspects of the proposed system. It is a well- 
established approach that can be highly effective in increasing software quality [Ref. 2]. Used 


in conjunction with conducting a major re-engineering effort, prototyping can be extremely 








useful in assisting in many areas of software modification, validation, risk reduction, and the 


refinement of user requirements. 


B. MOTIVATION 

In September 1996, USD(A&T) signed a memorandum promulgating the High Level 
Architecture (HLA) as the architecture of choice for Department of Defense (DoD) 
simulations. DoD additionally stated that all agencies shall cease further development or 
modification of all simulations which have not achieved, or are not in ihe process of achieving, 
HLA-compliance by the first day of FY 1999, and shall retire any non-compliant simulations 
by the first day of FY 2001 [Ref. 3]. In April 1998, USD(A&T) reaffirmed that policy stated 
in the September 1996 memorandum. To recap the full benefits of simulation interoperability 
and reuse in the near-term, it is important to quickly transition our legacy to the HLA [Ref. 4]. 
In support of these policies and a vision to improve solider training opportunities, the U.S. 
Army Training and Doctrine Command (TRADOC) Analysis Center in Monterey, California, 
(TRAC-MTRY) began efforts to research and develop an HLA compliant, personal computer 
(PC)-based, high-resolution, multi-sided, constructive combat simulation. The simulation 
selected for development was Janus. The overriding goal of the project was a prototyped 
HLA-compliant Janus, coded in C++, operating on a PC platform using the Windows NT 
(WinNT) operating system [Ref. 5]. Large constructive software simulation systems like Janus 
typically reside on bulky hardware platforms, usually running a UNIX-based operating system. 
However, the significantly increased computing power of today’s PCs, combined with hein 
low cost, availability, and wide familiarity make them a very attractive and logical choice for 


future simulation systems. 





A major goal in the ongoing research effort in the Software Engineering Laboratory at 
the Naval Postgraduate School is the construction of a highly automated software engineering 
environment to support computer-aided design, development, and reuse of large software 
systems. A number of models and tools have been developed as a result of the research, many 
of which largely support the task of re-engineering large software systems like Janus. TRAC- 
MTRY tasked the Software Engineering Laboratory at the Naval Postgraduate School to assist 
in its effort to re-engineer Janus into an object-oriented system. This thesis describes our 
efforts to modernize Janus into more maintainable, evolvable system, and one that exploits the 


recent speed, memory, and power enhancements of today’s modern PCs. 


Cc, OBJECTIVES 

The primary objectives of our work were twofold; 1) propose a methodology to re- 
engineer a legacy software system, and 2) produce an executable prototype of the design using 
the Computer Aided Prototyping System (CAPS) and its supporting specification language, the 
Prototyping System Description Language (PSDL). The work involved moving Janus, a 
legacy combat simulation system, from an HP-UNIX based platform, written mainly in the 
procedurally structured FORTRAN 77 programming language, to an object-oriented 
programming environment running on a PC platform. It was additionally a goal of the 
developers to rewrite Janus in an object-oriented programming language, preferably C++. 
‘However, prior to rewriting Janus code, the developers needed a completed software 
architecture of the existing Janus code functionality. The decision to develop an object- 
oriented architectural design facilitated rewriting Janus in C++ and integration of a Graphical 


User Interface (GUI). As any experienced software engineer will tell you, a well-designed 








architecture 1s the first step to successfully re-engineering a software system because it acts as a 
blueprint when designing the desired class structures, objects, attributes, interactions, and 
needed parameters. 

D. THESIS ORGANIZATION 

Chapter II provides an overview of the Janus simulation system, including background 
information on the system’s creation and its development. It provides a brief description of the 
model along with an analysis of the system to include a discussion of the system’s strengths 
and weaknesses. 

Chapter III begins with a brief description of the re-engineering process and provides a 
detailed account into the underlying steps of System Understanding, Reverse Engineering, 
Application Restructuring, and Forward Engineering. The next section, Building the Object 
Model, discusses the selected architecture and describes how the model was actually 
constructed using radiation objects and the event handlers. The chapter concludes with a 
brief analysis of the process. 

Chapter IV deseubes the procedures used in constructing the erecuabie prototype. It 
outlines the purpose for the prototype, describes how it was done and then provides some 
unique insight of lessons learned during the process. 

Chapter V summaries the key elements of our re-engineering effort and provides some 


insightful recommendations for future work and research in the area of legacy system re- 


engineering. 
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Il. JANUS OVERVIEW 


A. BACKGROUND 


The Army used constructive combat simulation aids for training since the late 
1970s. One of the earliest such models, the McClintic Theater Model, was developed by 
an Army War College employee by the name of Fred McClintic. The McClintic Theater 
Model, which quickly became known simply as “MTM”, was a prototype for “theater 
style” constructive simulations used for training, typically at Division level or higher. [Ref. 
6] 

Janus began development as a contemporary of MTM, but was intended to ‘oie 
utterly different requirements. Responding to a Department of Energy requirement, Janus 
was developed as a nuclear effects modeling tool by Lawrence Livermore National 
Laboratory (LLNL). Fielded in 1978, the Janus simulation was named after the two-faced 
_ Roman god of portals who guarded the gates of Rome by looking two ways at the same 
time. Later, the U.S. Army Training and Doctrine Command (TRADOC) Analysis Center, 
White Sands Missile Range, New Mexico (TRAC-WSMR) acquired the prototype from 
LLNL as result of the Janus Acquisition and Development Proj ect. DoD’s interest in Janus 
prompted the development of several parallel versions of the model during the late 1980s 
and early 1990s. The original version, developed at LLNL, is known as Janus(L) while the 
version adopted and successfully modified by TRAC-WSMR to meet Army combat 
development needs is known as J anus(T). Both of these models achieved great success and 
popularity amongst its users, which promulgated the Army to task TRAC-WSMR to 
develop a multipurpose system from the best of Janus(L) and Janus(T). The simulation, 


originally referred to as Janus (A), is now simply referred to as Janus. Janus has gained 





immense popularity over the course of its lifetime and is currently in use by several allied 
nations abroad to include Germany, France, Canada, and Australia. Here in the United 
States, Janus is used not only by the U.S. Army, but also by the U.S. Marine Corps and the 
Rand Corporation. The most recent version of Janus, version 6.88, is the analytical model 
which is managed and maintained by TRAC-WSMR. There is also training version of 
Janus, version 7.0, currently managed by the Simulation, Training and Instrumentation 


Command (STRICOM) located in Orlando, Florida. [Ref. 7] 


B. DESCRIPTION 


Janus is a high resolution, software-based, constructive combat simulation model 
used by Army leaders at brigade through platoon-sized units as an effective tool for training 
staffs and analyzing combat tactics. The model simulates battle between two to six 
opposing forces, depicting actions from individual systems and company-sized units, on up 
through brigade and regimental-sized units. Each element is viewed on the Janus screen as 
an icon. The icon may represent one or more pieces of equipment. For example, one icon 
may represent one tank, or it may represent a platoon of tanks. 

Janus is an interactive, closed, stochastic, ground combat simulation that features 
precise color graphics. It is “interactive” in that command and control functions, entered 
by military analysts, determine what actions take place in high tempo situations during 
simulated combat. “Closed” in that the disposition of opposing forces is largely unknown 
to the players in control of the other force. It is “stochastic” in the way the system 
determines the results of actions like direct fire engagements, according to the laws of 
probability and chance. The term ground combat implies that the principal focus is ground 


maneuver and artillery units. However, Janus also models many other characteristics such 





as weather and its effects, day and night visibility, engineer support, minefield employment 
and breaching, rotary and fixed wing aircraft, resupply, and a highly robust and realistic 
chemical environment. [Ref. 8] 

The Janus system was originally designed to run on the Digital Equipment 
Corporation VAX suite of computers running the Virtual Memory System (VMS) 
Operating system. The current “open systems” version runs on Hewlett-Packard 
workstations under HP-UX and supports both Tektronix and X-window workstations. Our 
work was solely concerned with the HP-UX version using X-windows workstations. The 
graphics environment, controlled by FORTRAN subroutines, send the appropriate graphics 
messages through the RTX X-window driver program to an X-window workstation. These 


subroutines are included in the Janus executables. [Ref. 8] 


CG ANALYSIS 


Initially written in 1978, the model consists of sixteen executable programs written 
in FORTRAN 77, with one additional subroutine written in the C programming language. 
FORTRAN 77 and C are procedure-oriented languages; that is, they are defined in a way 
that closely models the functions to be automated rather than the computer on which they 
operate. Janus code development occurred over a number of years, involving many 
different programmers, using several operating systems and various FORTRAN 77 and C 
language compilers. In concert with the style of programming used at that time, its data 
representation, instruction format, pointer usage, and control instructions are highly 
characteristic of the FORTRAN 77 and C language programming styles. Each program is 
made up from a number of subroutines and utility functions that were compiled separately 


and then linked into system libraries. The executable code was then generated from those 





system libraries. Several programs share common subroutines. 


1. Strengths 


As with all legacy systems, Janus has evolved over a number of years and as such, 
embodies substantial organizational knowledge. Being referred to as a legacy system in 
itself implies a system that contains many properties worth preserving. Janus has been 
deployed for over twenty years and has undergone the scrutiny of real users with respect to 
its functionality meeting their real needs. More specifically, the Janus simulation system 
uses several very unique algorithms that have been very carefully constructed and refined 
over the life of the system. These algorithms are used to simulate very highly complicated 
state environments to include weather and temperature effects, chemical reactions, cloud 
movements, direct and indirect fire events, and probabilities for line-of-sight, target 
identification, recognition, and acquisition. 

In addition to the extraordinary algorithms used in Janus, the simulation maintains a 
huge database, which describes weapon systems extensively and in detail. Individual 
fighting systems have distinct properties such as dimensions, weight, carrying capacity, 
speed, weapons and weapons capabilities like range, type of ordinance and ammunition 


basic load. [Ref. 9] 


2. Weaknesses 


Many of the Janus system variables and parameters used in the code are passed 
between the various programs explicitly or via the use of global data sets, often called 
FORTRAN common blocks. This form of programming uses a “structured” design 


strategy and may be considered highly functionally oriented. Function-oriented design is 


10 





characterized by decomposing a system into a set of interacting functions that all share a 
common centralized system state. Algorithm details and parameter manipulations are often 
hidden in this style of design whereas the system state information can be viewed and 
shared by all. This sharing of system state information can create serious problems since a 
function can change the system state in a way that is inconsistent with the expectations of a 
subsequent function. Furthermore, changes to a function and the manner in which that 
function uses the system state information may also create many unanticipated changes in 
the behavior of other functions. 

As previously mentioned above, the Janus simulation system was originally 
designed using a function-oriented approach to software development. In this approach the 
design is commonly decomposed into a set of interacting units where each unit has a 
clearly defined function. Design components in this approach are normally highly cohesive 
around functions that operate on the global data sets, which make modifications and 
upgrades very difficult and time consuming. For instance, the Janus database contains a 
number of weapon systems to include tanks, helicopters and many other combat weapon 
systems. Adding a new tank with characteristics dissimilar from those of other tanks in the 
current database would require an immense amount of work and the programmer would 
have to make modifications in many different sections of the software. Changing the 
implementation of a weapon system or adding a new service, in almost any scenario, would 
require the programmer to modify numerous sections of the software. Furthermore, many 
of the newly modified sections would seem to many, to be totally unrelated to the 


originally desired implementation change or service addition. 
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Finally, although FORTRAN is probably the language best suited for mathematical 
and scientific programming, it possesses limited program structuring facilities and has very 
limited support for data structuring. Thus, one can easily see that the current version of 


Janus is not easily modified and maintainability is often very difficult and time consuming. 
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Tt. METHODOLOGY 


A. THE RE-ENGINEERING PROCESS 

Software re-engineering combines forward and reverse engineering techniques to 
make a system that is more maintainable and more evolvable. Figure 1 illustrates this 
process. Software re-engineering may be defined as any activity that improves one’s 
understanding of a software system and/or improves the software itself [Ref. 10]. This 
definition partitions software re-engineering into two components: software 
understanding and evolution. The first component, software understanding, involves 
those activities that support program comprehension, such as measurement, browsing, 
system understanding, and reverse engineering. The second component, evolution, 
includes those activities geared toward software evolution such as redocumentation, 
restructuring, and forward engineering. The approach taken in our research followed a 
sequence of system understanding, reverse engineering, then followed by application 
restructuring and finally forward engineering. The details of each activity are described 


in the following paragraphs. 
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Figure 1. Re-engineering Process 


1. System Understanding 


System understanding reflects the process of creating and maintaining an 
understanding of the system through analysis, elicitation, and capture [Ref. 11]. The first 
step in our process took the form of a series of brief meetings with the client, TRAC- 
Monterey, which also included a short demonstration of the current software system. We 
asked questions and made several notes on the system’s operation and it’s current 
functionality. We paid particular attention to the client’s view of the system to gather 
their ideas on its strengths, weaknesses, and desired and undesired functionality. 
Additionally we collected copies of the Janus User’s Tutorial manual, Janus User 
Manual, the Software Design Manual from a previous version of Janus (3.X/UNIX), and 
the Janus Version 6.88 Release Notes. Our goal was to gather as much information as we 
could about the current existing system to aid in gaining a clearer understanding of its 


present functionality. This provided a sound foundation upon which to move up one 


level of abstraction from implementation and focus on the system’s underlying 
architectural design. The intent of this procedure was to ensure that the systems’ current 
functionality was not lost nor misrepresented in the transformation into a more abstract, 


modular format. 


2. Reverse Engineering 

Reverse engineering may be defined as the process of analyzing an existing 
system; identifying its system components, abstractions and interrelationships, and then 
creating the respective representation [Ref. 11]. In similar fashion, the focus of this step 
was to abstractly capture the system’s functionality and then produce modules that would 
most accurately represent that functionality. Armed with the Janus source code, we 
proceeded to divide the code by directories amongst each team member. Each team 
member was assigned roughly six to seven directories to explore, examine, and gather 
information. Using strictly manual techniques with UNIX commands and_ review 
procedures, we were able to get a fairly good idea of what each subroutine was designed 
to do. We additionally used the Software Programmers’ Manual to aid in better 
understanding each subroutine’s function, its required parameters and coordinating 
subroutines. In doing so we were able to group the subroutines by functionality to get a 
better understanding of the major data flows between programs. Using that knowledge, 
we developed functional models from the data flows. We used an automated tool known 
as CAPS, developed by Professor Luqi and the Software Engineering group at the Naval 
Postgraduate School, to assist in developing the abstract models [Ref. 12, 13]. CAPS 
allowed us to rapidly graph the gathered data and transform it into a more readable and 


usable format. Additionally, CAPS enabled us to develop our diagrams separately with 
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the associated information flows and stream definitions, and then join them together still 
under the CAPS environment. These diagrams were then used to generate an executable 


model of the system’s architecture. 


3. Application Restructuring 


Next, we proceeded to develop the object models of the Janus system using the 
aforementioned materials and products to create the modules and associations amongst 
them. Chikofsky defines restructuring as the transformation of representations at the 
same level of abstraction while preserving the system’s external behavior [Ref. 11]. The 
transformation of the functional models to object models was probably the most difficult 
and most important step, primarily because it required a great deal of detailed technical 
analysis and astute focus to mentally transform the current chaotic assembly of data and 
functions into small, realizable objects each with its own set of attributes and operations. 
In performing this step, we used our knowledge of object-oriented analysis applying 
concepts from Object Modeling Technique (OMT) and the Unified Modeling Language 
(UML) notations to create the classes and associated attributes and operations. This was 
really a crucial step because we had to ensure that the classes we created accurately 
represented the functions and procedures currently found in the original system. We used 
the HP-UNIX systems at the TRAC-MTRY facility to run the Janus simulation software 
to aid in verifying and/or supplementing the information we obtained from reviewing the 
source code and documentation. This step enabled us to better analyze the simulation 
system, gaining insight into its functionality and further concentrate on module definition 
and refinement. Our goal was to develop viable class representations from the gathered 


information, which would best represent the software’s current functionality. 





4, Forward Engineering 

As in conventional software development, forward engineering begins with the 
system specification. The newly developed object models along with our knowledge 
gained during the system understanding phase served as our system specification for the 
realization of the new system. 

During this phase of the re-engineering effort, our team focus was to move 
forward to develop the desea system for the Janus Simulation System from our newly 
created object models. Again we closely analyzed each object, its associated attributes, 
and operations to ensure we captured an accurate representation for future development 
and integration into our newly planned object-oriented architecture. The team met 
several times each week for a period of nearly three months to discuss the details of the 
object models and the proposed structure of the Janus object-oriented architecture. We 
also presented our findings weekly to the Janus domain experts at TRAC-MTRY and 
members of Rolands & Associates, a local software developer also involved in the 
project. Our re-engineering team additionally presented findings to numerous other 
technical organizations within the software simulation development community to 
include the OneSAF project, the Combat21 project, and the National Simulation Center at 
Fort Leavenworth, Kansas. The gathered feedback from each session was then reviewed 
and analyzed for possible incorporation into the object models for the Janus core 


elements and development of the object-oriented software architecture. 
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B. BUILDING THE OBJECT MODEL 


1. The Three-Tier Object-Oriented Architecture 


We observed that possessing a solid software architecture is one of the key 
elements in successfully re-engineering a legacy software system. Realizing this, we 
opted to use a layering concept to provide an application architecture that would 
minimize the negative impacts due to change in the base technology or in the addition of 
any new application features. Layering application architecture has also been shown to 
enhance the concept of software reuse by creating additional layers to separate the user 
system interface client environment from the database management server environment 
and other services. Some systems have achieved upwards of 60% reuse of software 
within one domain of an application. [Ref. 14] 

In designing our system, we wanted to use an object-oriented system architecture 
to serve as the basis for our reengineering effort. Our current top-level communications 
structure of the existing software did not decompose the system into clearly defined 
subsystems where each subsystem comprised a related set of functions sharing a common 
purpose and having a well-defined interface. 

To create a truly object-oriented system architecture we chose to decompose the 
Janus system vertically into layers. Each layer was built in terms of the ones below it. 
The lower layer provides the basis for implementation to the layers above it. Thus, a 
subsystem can communicate to a lower layer via a client-server relationship where clients 
must know the interface of the server to use its provided functionality. This type of 


architecture highly promotes system flexibility and reuse by allowing a subsystem or 








layer to be modified, rewritten, and /or replaced without affecting or disrupting the 
operation of the entire system. 

After deciding upon a layered software architecture, we additionally selected to 
use a closed architecture. This meant that each layer was limited to communicate only to 
the layer immediately beneath it. Implementing this limitation reduced the dependencies 
to just two layers: the current layer and the layer immediately beneath it. Reducing 
| dependencies amongst these layers of the architecture worked to localize changes to just 
one layer as long as all of the interfaces associated with that layer remained the same. 
Subsequently, if changes to an interface must occur, this type of architecture limits those 
changes to the system to just the two layers interacting via the newly changed interface. 

In our design, we chose to use a classic three-tier architecture (Appendix A) to 
serve as our basis for the Janus system. This architecture took into account all the 
benefits listed above by providing three layers of representation: a Presentation layer, an 
_ Applications layer, and a Storage/Network layer. We mapped the functionality 
represented in the current Janus top-level communications structure to our three-tier 
architecture. The Janus User Interface maps directly to the presentation layer, which is 
relatively free of application processing. The Applications sade contains the meat of the 
system to include the core elements that perform the major event-processing tasks in 
Janus, and the other components required for system operation. We additionally chose to 
further divide the Applications layer into two sub-layers (Appendix A): a Domain layer, 
which provides services to the Janus User Interface and a Services layer to provide 
communication and access to the storage devices and the network. This finer 


decomposition of the middle layer promptly introduced the concept of a multi-tiered 
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architecture as opposed to three, however the idea of a single “middle tier” remains. The 
additional layers allowed us to further separate the responsibilities imposed by the three- 
tier architecture and develop more modular, specialized, reusable components. We were 
then able to map most of the functionality to the Domain layer, thus providing services 
similar to those currently provided by the Janus GUI. Most of the work is done in the 
Domain sub-layer. The components here perform the majority of the system processing 
functions and application execution. The Services sub-layer provides access to both the 
Janus Database and DIS/HLA infrastructure. 

Using a three-tier architecture provided a clearly defined interface between each 
layer, which allowed changes to a particular layer to be localized to that layer. For 
instance, if the Janus database had to be completely changed due to size and format 
constraints, this type of architecture would allow chances to be localized to just the 
storage layer as long as the interface between the storage and services layers did not 
change. Ina iiss fashion, if for instance the interface between database utilities and 
the database did not provide the proper services, a change to that interface would be 
needed to include any a interface requirements. This newly changed interface would 
then demand appropriate changes be made to the services and storage layers to 
accommodate those new interface changes. However, nothing in the domain layer would 


need to be changed. 


Zz. Building the Simulation Objects 


After developing the three-tier architecture, our next goal was to expand this 
architecture to encompass the functionality of the current Janus. As part of our reverse 


engineering effort, we focused our attention on the Janus Combat Simulation and Core 
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Elements. In the current version of Janus, a user can create a Scenario by choosing run 
parameters that control the environment, which consists of a terrain and weather 
conditions databases. The user can also establish combat forces. Each force would then 
contain a collection of combat units, command and control graphics, and any selected 
obstacles. 

Since Janus is such a large system, our first step was to build small, coherent, 
realizable objects, each with its own attributes and operations, that would accurately 
represent the functions and procedures of the current software. In a to accomplish 
this task we divided the components of the current Scenario amongst the team members. 
Each member reviewed the source code and documentation and created objects with 
associated attributes and methods. After each member had an opportunity to work on his 
or her object, the re-engineering team met to discuss the object models for the Janus core 
elements and the object oriented architecture for the Janus system. As each member 
presented their finding, others provided feedback. To ensure greater accuracy, we 
presented our findings to the Janus domain experts from TRAC-MTRY and Rolands & 
Associates. Based on their feedback the team revised the object models. © 

We focused primarily on the attributes of the system to create the objects since the 
attributes were fairly well defined in the Janus documentation. By tracking the attributes, 
we were able to find insights to how Janus manipulates data structures. Data structures ‘in 
Janus are FORTRAN arrays. Operational parameters are spread across a number of 
arrays and are identified by an array index value. We found that information regarding a 
particular object was not encapsulated. Encapsulation and information hiding allow the 


programmer to change the internals without affecting the user provided the interface does 
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not changed. By encapsulating the attributes within the objects, we greatly reduced the 
sophisticated programming skills required to understand Janus’ data representation and 
also reduced the risk and cost to modify future systems. 

As part of revising our object models, we often tried to structure our objects to 
obtain the greatest benefits of Object Oriented Programming (OOP) (Appendix E). Our 
first effort was to arrange the objects into hierarchies. Hierarchies provide many valuable 
advantages such as type extensions, inheritance, and dynamic dispatching. A specialized 
object would inherit the primitive attributes and methods of its parent, but maintain the 
flexibility to add or override attributes and methods in order to provide specific behaviors 
to the object. For an example, if there was a new tank that exhibited slightly different 
movement behavior than other tanks, a designer could create a subclass of the current 
Tank Class. The subclass would then inherit all the attributes and methods of its parent 
class. The designer could take advantage of similar behaviors by deciding not to override 
any of the common methods and attributes of the Tank Class. He could also add specific 


behaviors by overriding others or by adding additional methods and/or attributes. 


3. Building the Event Handler Objects 


After creating base objects with their associated attributes and simple methods, 
we needed to ensure the primary functionality of the Janus Simulation System was 
properly captured in our model. In order to accomplish this task, we looked at the 
existing Janus code architecture. Central to the Janus Combat Simulation Subsystem is 
the program RUNJAN, which is the main event scheduler for the simulation. RUNJAN 
determines the next scheduled event (called a “process” in the Janus User Manual) and 


executes that event. The existing Janus Simulation System uses 17 different categories to 
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characterize the events. RUNJAN then handles these 17 events using the following event 
handlers: 

1) DOPLAN - Interactive Command and Control activities 

2) MOVEMENT - Update units positions 

3) DOCLOUD - Create and update smoke and dust clouds 

4) STATEWT - Periodic activity to write unit status to disk 

5) RELOAD - Plan and execute the direct fire events 

6) INTACT - Update the graphics displays 

7) CNTRBAT - Detect artillery fires 

8) SEARCH - Update target acquisitions, choose weapons against potential 
targets, and schedule potential direct fire events 

9) DOCHEM - Create chemical clouds and transition units to different chemical 
states 

10) FIRING - Evaluate direct fire round impacting and execute an indirect fire 
mission 

11) IMPACT - Evaluate and update the results of an indirect round impacting 

12) RADAR - Update an air defense radar state and schedule a direct fire event 
for “normal” radar 

13) COPTER - Update a helicopter states 

14) DOARTY - Schedule an indirect fire mission 

15) DOHEAT - Update units’ heat status 

16) DOCKPT - Activity to perform automatic checkpoints 


17) ENDJAN - Housekeeping activity to end the simulation 
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The existing event scheduler relies on global arrays and matrices to maintain 
attributes of the objects. Since our first task was to move these attributes to the 
corresponding objects, our second task would be to distribute the event handling 
functions to the individual objects. However, as discovered from our first task, many of 
the current event handler categories contained redundant code and did not seem to be 
very coherent to the objects we created. Thus, we realized the need to redefine some of 
the event categories in order to provide a uniform framework and to eliminate redundant 
coding of similar or identical functions. This also allowed us to take Sivaatane of the 
dynamic dispatching capabilities of the event handling functions inherit within our 
object-oriented architecture. For example, the set of event handlers used for a particular 
unit to search for targets, select weapons, prepare for a direct fire engagement, and then 
execute that direct fire engagement differs depending upon whether the unit has a normal 
radar, special radar, or no radar at all. The existing Janus Simulation System uses the 
RADAR event handler to carry out the entire procedure if the unit has normal radar. 
However, it uses the SEARCH, RADAR, and RELOAD event handlers to carry out the 
procedure if the unit has special radar. Finally the system uses the SEARCH and 
RELOAD event handlers to conduct the procedure if the unit has no radar at all. 

Upon analyzing the Janus Simulation System event handlers, we were able to 
successfully reduce the total number of event handlers needed in the simulation, from 17 
to 14, by eliminating identified redundant code. Our 14 event handlers are as follows: 

1) DOPLAN - Interactive Command and Control activities 

2) MOVE UPDATE OBJ -— Moves and update all objects in the simulation 


3) SEARCH - Based on all detection devices, searches for potential targets 
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4) CHOOSE DIRECT FIRE TARGETS — Once search is complete chooses 
best target to engage. In future simulations, implementations may allow users 
to choose targets. 

5) COUNTERBATTERY -— Simulates counter battery radar to find potential 
targets 

6) DO _DIRECT_FIRE — Executes direct fire events and updates ammunition 
Status 

7) DO_INDIRECT_FIRE — Executes indirect fire events and updates 
ammunition status 

8) IMPACT EFFECTS — Calculates results of round impacting. 

9) UPDATE_HEAT_STATUS — Updates units’ heat status. 

10) UPDATE CHEMICAL STATUS — Update unit’s chemical status 

11) DISPLAY — Updates the graphics display. 

12) WRITE STATUS -— Periodic activity to write units status to disk. 

13) CHECK_ POINT — Activity to perform automatic checkpoints 

14) END SIMULATION - Activity to end the simulation. 

As can be seen in Appendix B, we renamed some of the event handlers to possess 
more descriptive, meaningful names. We additionally combined some event handlers 
having similar functionality into ones that were more easily understood and applicable to 
the actual function. Every event now has an associated simulation object. This 
associated object is the target of the event. Depending on the subclass to which an event 
object belongs, the “execute” method of the event will invoke the corresponding event 


handler of the associated simulation object (Appendix C). The simulation object 
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superclass defines the interface of the event handlers for the event groups. At the highest 
level, it provides an empty body as the default implementation for the event handlers. 
Events are dispatched to the appropriate subclass. The event handler of the subclass 
overrides the inherited method in order to perform the desired behavior, if there is 
something more specific that needs to be done for instances of the subclass. 

The architecture described above enables a very simple realization of the main 
simulation loop (Appendix G, Section 25). The pseudo code for the event control loop is 
as follows: 

initialization; 

While not_empty(event_ queue) loop 
e€ := remove_event(event_queue); 
e.execute( ); 

End loop; 

finalization; 

Note that this same code is used to handle all of the event handlers, including 
those for future extensions that have not yet been designed. Event objects with 
associated simulation objects are created and inserted into the event queue by the 
initialization procedure, the constructors of an object, and the actions of other event 
handlers. Depending on the actual event, it is inserted into an event priority queue based 
on time and priority. 

Using the old event handlers under current the Janus simulation system to move a 
tank, smoke cloud, or helicopter required three distinctly different event handlers, 
MOVEMENT, COPTER and DOCLOUDS respectively. During our analysis we were 
able to consolidate these three event handlers into one namely, MOVE UPDATE _ OBJ. 


We observed that although a tank, a smoke cloud, and a helicopter are all distinctly 


different, each one as an object has the capability to move and update its present location 
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and other parameters. Thus, the name MOVE _UPDATE_OBJ accurately described the 
event. Additionally, under the old event handlers, depending on the particular simulation 
object, the program would have to analyze each object using several conditionals in order 
to determine which event handler to invoke. Under our architecture, we take advantage 
of the dynamic dispatching capabilities provided by an object-oriented programming 
language, to automatically dispatch the event to the appropriate event handler. Thus to 
move a smoke cloud object, the new architecture will invoke the MOVE_UPDATE_OBJ 
method of the Cloud Class. This allows the simulation to correctly move the cloud in 
accordance with the current environment and also update the cloud’s size and intensity. 
Similarly, to move a tank or helicopter object, the new architecture would dispatch to the 
appropriate MOVE UPDATE OBJ method of the Vehicle Class. This would 
subsequently move and. update the object’s fuel consumption and other required 
parameters based on the particular vehicular type. 

Our newly designed architecture eliminates the need for the simulation loop to 
know what kind of object it is handling. Thus when adding an object type not yet 
designed, the simulation loop does not require additional code to invoke the new object’s 
event handlers. This eliminates the possibility of introducing errors into the existing parts 


of the simulation by localizing all changes to the newly added object class. 
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IV. PROTOTYPE: WARRIOR VERSION 1.4 


A. BACKGROUND 


Prototyping has increasingly become a widely used methodology to improve the 
design of software projects [Ref. 15]. A prototype is an executable model of a proposed 
software system that accurately reflects chosen aspects of the system, such as display 
formats, the values computed or response times [Ref. 2]. The prototyping methodology 
is based on an iterative guess/check/modification cycle that relies on prototype 
demonstrations and customer reactions to validate behavior of the final system. The 
following diagram in Figure 2 shows how to validate requirements using a prototype 


process [Ref. 16]: 
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Prototyping may be defined as an approach to software development that uses 
prototypes or executable models to aid both developers and customers alike in visualizing 


the proposed system, and to predetermine its system properties using an iterative process 








[Ref. 2]. The primary purpose of a prototype is to serve as an executable model of 
selected aspects of a proposed system and to help designers confirm and refine 
requirements for a software system. Eliminating incorrect or poorly defined requirements 
early in the software design cycle helps reduce the time and total cost of the system. If 
these design errors are left to propagate, they may result in a large amount of wasted 
effort spent developing software to meet incorrect or inappropriate specifications. Much 
of the time, effort, and cost to produce the product will be thrown out. Designers will 
have to go back to the drawing board to correctly re-define the requirements. 
Computer-aided prototyping serves as a method to automate the design process. 
Automation allows designers to quickly develop prototypes to analyze software systems. 
One system currently under research at the Naval Postgraduate School is CAPS. The 
main components of CAPS (Figure 3) are the Editors, the Execution Support, the 


Software Base, and the Project Control [Ref. 17]. 


PSDL | Ada 
| Editor 
Project 
Control 
Mer ger 
So 










ftware Base 


Figure 3. CAPS General Structure 
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Using the Editors, the designer can sketch system data flow diagrams augmented 
with timing and control constraints. PSDL is a high-level prototyping language designed 
to support the specifications of real-time software systems. PSDL also helps organize 
and retrieve reusable components from the Software Base. The Software Base isa 
database system that consists of reusable designs and software components. The 
Execution Support system contains the translator, the static scheduler, the dynamic 
scheduler, and the debugger [Ref. 18]. 

CAPS provides many benefits, the most significant of which is that it can 
automatically generate ADA source code resulting in more reliable systems at reduced 
production costs. CAPS supports evolutionary prototyping that provides the following 
benefits [Ref 17]: 

1) Risk reduction by providing a systematic method for validating systems. 

2) Reliable code through automation. 

3) Reduced maintenance costs. 


4) Fewer system integration problems by standardizing all interfaces. 


B. THE WARRIOR PROTOTYPE 


iB Purpose of the Prototype 


We needed to develop an executable prototype to validate our object-oriented 
Model of the Janus Subsystem. By using CAPS to rapidly create the prototype, we could 
continue the prototyping process in order to refine the Janus interfaces, adjust the designs 


to handle newly discovered issues, and exercise all parts of the architecture [Ref. 19]. 
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Thus, the result of the prototype process is to validate the architecture to ensure that the 


architecture will meet the user’s needs. 


pee Building the Prototype 


When developing an executable prototype of the simulation, we focused on four 
subsystems: Janus, GUI, JAAWS, and the POST PROCESSOR. Our architecture did 
not include re-engineering the JAAWS and POST PROCESSOR subsystems. 
Nevertheless, we felt it imperative to include these systems in our prototype to validate 
the interface among these subsystems. Figure 4 shows the top-level PSDL structure of 


the prototype. 


Mope ee tcl tee gre 


Flair Parts iaats 


BO are wat 
ay © Fle” 2 


nao. Tayi emepiate oe 


SP eS MINTO Ce EN OETA ML BRET Fg ES LO IF NTE EE RM SRR A Do eR See ye He eae ee eater: 
* ee ee eae ee Sn ee Tae ke preset a caine mate ta 
_ . ae ee ule ea Ce EB ane og cckeg ane ; 
x 
6 ages 
" 


Pie tai » a ae : ar Se 
“ ¢, ae es as Nye tes - Qk, wre wS to aa SS ws . te 
oe tae a tee ty MET af. elms Heil tiie a ase ete Dt nt 
P Tee ee Heat es : eg TER Ts ute > * 
ah Sag ent! ate at peta a aes eet bags oS 4 
os Pat sg, Ma Me Reha EA ec Se ee” a Sd ee re | “ ¢ 


i ey os emg ng Sa ry 
STP Pe warrdor ee aye Ta, ae oe 
ere Bk FR Sead Breer acne, Ss espinal shinies Pe Ser ear a Ro a oe . 


statistics_request 


replay_request 


user_interaction 


ee | ees 33 
ee api = + Ear 
Be eters | DR ee ee 
SULTS Ey TEES PRA tS a ten an eye we EOS 
esa y * x 
RT De TR Ty AS Sale ed ph PEST Ee ee ten eb FP TESTED TST sat Ape Tain | 
re -_- an ae a . rs een - Po ee ae . tect ao a feee@ «2 oe +e. . nS ete’ a 2 


processor 


simulation_history simulation_history replay_position 


SET, BREE 
“SH OS ated *e 


Sek © is tear we 


oaFs ISS = 
hee eee eer ee 





Figure 4. Top-level decomposition of the executable prototype 
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Figure 5. The JANUS subsystem of the executable prototype 


Among the four subsystems, the Janus and GUI subsystems, depicted with double 
circles, are made up of sub-modules as shown in Figures 5 and 6. The 
POST PROCESSOR and JAAWS subsystems, depicted with single circles, are mapped 
directly to objects. 

Due to time and resource limitations, we developed the prototype for a very small 
simulation. In order to fully exercise all parts of the architecture we chose a single 
object, a Tank, moving on a two-dimensional plane along with three event objects 
(Move Update Object, Do Plan, End Simulation), and one Post-Processor related 


statistic, Fuel Consumption. 
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Figure 6. The GUI subsystem of the executable prototype 


After creating the PSDL specification of our prototype design (Appendix F), the 
CAPS execution support system was able to generate the code that controls and 
interconnects the subsystems. By providing functionality to the subsystems, we were 
able to generate an executable prototype. When adding functionality, we were careful to 
ensure we conformed to the object model we developed in a prior exercise. For example, 
our design of the event handler required the handler to be able to execute events for all 
kinds of simulation objects. In our prototype, this meant that the Move Update Object 
event handler had to work with all different kinds of simulation objects. Although our 


tank only moved in two dimensions, we choose to implement the Move Update method 
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of the base Vehicle Class to support 3-D movement because some objects must have the 
capability to move in three dimensions. Using the object-oriented property of 
polymorphism, we allowed the event handler to invoke the correct implementation based 
on the object type, thus solving this problem. In addition, using the Transportable 
Application Environment (TAE)*, we were able to develop a simple GUI to allow easy 
access and execution of the prototype. The resultant prototype consisted of over 6000 
lines of program saute code and contained enough features to exercise our architecture 
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Figure 7. The Graphical User Interface of the executable prototype 


* TAE is a trademark of the National Aeronautical and Space Administration. 
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C: PROTOTYPE REFINEMENTS 


As we worked through the prototyping process we made several refinements to 


our architecture. The prototype resulted in the following refinements: 


1. Return Value of the Execute Event Method 


Our first refinement was to change the Execute_Event method’s return value from 
a null value to a value representing the time to reschedule the next event for the 
simulation object. In the original implementation, the Do Event method retrieved an 
event object from the queue, which was then dispatched to the correct Execute Event 
method via polymorphism. The Execute Event method then executed the event on the 
corresponding simulation object. If, while in the Execute Event method, the object 
required rescheduling, it made an external call back to the Do_Event package to invoke 
the Schedule_Event method, thus adding the event object to the queue. 

However, we felt that all queue operations should be localized to the Do_Event 
package and that execution of events should be localized to the Execute_Event package. 
Therefore, by implementing the return value, we were able to separate these operations 
(Appendix G). Now instead of the Execute_Event method making an external call back 
to the Do_Event package to reschedule the event, the method just returns the time to 
reschedule that event if necessary. Once control is returned to the Do Event method, it 
will reschedule the event. We introduced a special time value of “NEVER” to indicate 
that the event should not be rescheduled. The proposed modifications changed 
communications between the event dispatcher and the simulation objects from a peer-to- 
peer type relation into that of a client/server type relationship. This change also served to 


reinforce the object-oriented property of information hiding by eliminating the need for 
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the simulation objects to know the details of the event queue. It additionally reinforced 
the property of polymorphism by allowing the dispatcher to use a single statement to 
schedule all recurring events for all event types including those that may be added by 


currently unknown future extensions to Janus. 


Z. Simulation History 

Our second refinement to the architecture dealt with how to record the history of 
the simulation run. Instead of recording the history in terms of periodic snapshots of 
selected data values, we decided to record the simulation history as a sequence of events. 
Our first implementation of recording the history was based on the current Janus model. 
In this model, a special event, Write Status, executed periodically to capture selected 
data values and write them to disk. However, the prototype showed us that this model 
was highly inefficient, inaccurate and often unreliable. For example, many of the 
simulation objects’ states remained constant through several Write Status executions. 
Most of the data captured was redundant. In order to increase the accuracy, the system 
would have to capture more data values. Combined with the redundant data problem, one 
could easily see how the size of the history file could easily grow rapidly. Moreover, the 
Write_Status event handler has to keep track of the status of the objects that own the 
selected data values. 

After further investigation, we realized that the state of the simulation only 
changed when an event occurred. If we were able to capture each event in a history file, 
we could then capture a true representation of the simulation as it occurred. Since we 
were already using the event objects for the real-time simulation, using the event objects 


to create a historical record provided a simple and uniform way to conduct post- 
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simulation analysis. As we implemented this change, we discovered two primary 
benefits. First, we were able to provide the post-simulation with the greatest resolution 
without creating an excessively large database. By capturing the events, any quantity 
calculated during the real-time simulation could also be calculated during the post- 
simulation. Second, we eliminated the need for a Write Status event from our 
architecture. Instead of using the Write Status event (Appendix B) to capture the history, 
we made a single line modification to our Do_Event method (Appendix G, Section 25). 


After an event is executed, a copy of the event is placed in the Simulation History. 


3. Null Action of an Event in the Event Queue 


Our third refinement allowed the null action of an event to appear in the event 
queue. A null action of an event does not affect the state of the simulation but serves as a 
placeholder of a dormant object in the event queue and also serves as a method to allow 
future events. In our first version of the prototype, we opted to not allow null events into 
the event queue since this decision corresponds to the current Janus scheduling policies. 
As implemented, we used the Create_New_Events method to scan through all of the 
simulation objects once per simulation cycle to determine if any dormant objects became 
active. If so, after determining the object and correct corresponding event, the 
| Create_New_Events method would reschedule the object in the queue. 

The prototype revealed that this process required very complicated logic and 
greatly reduced the efficiency of the system. By allowing a null action of an event in the 
event queue, we eliminated the need for the Create New Events method to scan through 
all of the simulation objects. We now put the responsibility on the event handlers to 


manage dormant objects. Constructors for all kinds of simulation objects are used to 
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create the initial events in the queue. As described above, the Execute _Event method of 
each event handler determines the next time to execute the event and returns it to the 
Do_Event method for rescheduling. However, if the Execute Event method of an event 
handler determines that the object is not yet active, it simply returns an estimated time to 
the Do_Event method. The Do Event method will then invoke the event of the object 
again at some time later in the simulation. Then, in the future when the event waiting in 
the queue executes and the obj ect becomes active, the event handler would determine the 
correct action and return a schedule time for the meaningful event. For instance, if a 
vehicle arrives at its destination, the Move_Update_Object event handler would flag its 
event to do nothing and wait for some duration of time to allow the user to provide a new 
destination. If this duration were not long enough, it would repeat this waiting process. 
As soon as a user provided a new destination, the Move Update Object event handler 
would return a value and enable its event to move the vehicle. 

In its final version, the prototype showed this refinement greatly improved overall 

system efficiency and simplified the code in the following areas: 

1) Checking to verify if a dormant object became active is done once per activity 
of that object instead of once per simulation cycle. 

2) Null actions of events are fast since they are basically just a guard. The time 
required to check a guard in a Null action of an event once per activity is 
much less than that required to check the status of each simulation object once 
during each simulation cycle. 

3) Eliminating complicated code in order to find and test all simulation objects 


reduces the computational load on the system. 
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D. LESSONS LEARNED 


Throughout our prototyping experiment, we learned the benefits of using the 
prototype process. Each iteration of the prototyping process produced several criticisms, 
many of which resulted in the refinements described above, which ultimately produced a 
more realistic prototype. In the end, we developed a prototype that successfully met the 
users needs and validated our architecture. 

We observed the many benefits of designing a prototype using an object-oriented 
architecture. In the course of two weeks, with the assistance of CAPS, we were able to 
rapidly build four versions of our prototype. As our prototype evolved, CAPS ensured 
consistency of each version while the three-tiered object-oriented architecture allowed 
localization of design issues and provided an easy means for extensions. For instance, 
version 1 of our prototype consisted of only two event subclasses, Move_Update Object 
and End_Simulation. Version 2 introduced a third event subclass, Do Plan. The 
Do_Plan event allowed the user to select new destinations for the tank. Because of the . 
unique flexibility of our object design, we were able to add this event without having to 
modify the event control loop, thus unaffecting the previously working code. After we 
implemented Do_Plan, we discovered that our implementation forced the user to first 
enter an X-coordinate followed by a corresponding Y-coordinate. Since our object- 
oriented design localized the implementation of the Do Plan event to just a few lines of 
code, we were able to find, fix, and implement a better Do_Plan event. In the final state, 
we added an Enter Button to the GUI to allow the user to enter the coordinates in any 


order or to allow the user to change one coordinate at a time. 
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In the final analysis it is easy to see that our architectural design benefited 
immensely by our decision to - an object-oriented methodology and design. The use of 
multi-tiered architectural concepts within our three-tier architecture allowed for isolation 
of the Applications layer into separate components. This is very valuable in the sense 
that it promotes the use of reusable components and allows for the distribution of tiers on 
different physical computing hosts. Another benefit is that it provides flexibility to allow 
different developers to construct specific tiers of the architecture, as is the case in our 
project where a separate contractor is developing the system’s GUI. 

Additionally, the object-oriented properties of polymorphism and inheritance 
greatly enhanced our ability to efficiently extend the behaviors and provide specific 
behaviors to objects. For example, in version 2 of our prototype, we introduced the 
POST PROCESSOR module, which allowed users to view the vehicle’s fuel 
consumption. However, a fuel consumption calculation would require more specific 
behavior from our tank’s Move_Update Object method. In addition, as described above, 
in version 1 of our prototype we used polymorphism and inheritance properties to move 
the tank, thus allowing the event handler to dispatch to the Tank Class. This again 
demonstrated the unique object-oriented luxury of inheriting general-purpose movement 
behaviors from the superclass. In version 2, we had to modify this behavior to show the 
vehicle’s fuel consumption. By calculating the time elapsed from the last movement and 
using the vehicle’s fuel consumption rate per time, we were able to compute the correct 
amount of fuel consumed. In the end, the Tank Class Move Update Object method 
consisted of a guard, one statement to invoke the superclass Move Update Object, and 


three lines to calculate the amount of fuel consumed (Appendix G, Section 81). Again 
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using the properties of polymorphism and inheritance, additional objects such as 
helicopters, airplanes and other mobile weapon platforms can be easily implemented in a 


similar fashion. 
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V. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 


Our thesis research indicates that by applying reverse engineering, restructuring, 
and forward engineering techniques, we were able to successfully evolve a procedurally 
coded, function oriented legacy software system into a highly modular, object-oriented 
software system capable of contending with current simulation systems. We developed 
an architecture that supports the functionality of the current Janus simulation system, 
while also maintaining the flexibility to evolve to handle new and future design changes. 
Using object-oriented design and analysis techniques, we created objects and classes that 
encapsulated related items and developed a structural model of the system. This enabled 
future modifications of the system to be accomplished by manipulating those objects or 
by introducing new objects into the system. For example, while working on the Janus 
simulation system, TRAC-WSMR informed us that the Janus model for the Radar 
paplenentanen was outdated and that a new model would be out within a year. 
However, we had already completed this section of our architecture and based it on the 
currently outdated Radar model. Nevertheless, since we used an object-oriented 
architecture, it will be relatively easy to incorporate any changes to our model since all of 
the information regarding the Radar functionality is located in only two areas, the Red 


and Blue Radar objects. 
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B. RECOMMENDATIONS 


1. Automated Tools 


As we look back on the Janus simulation re-engineering process, we can recall the 
enormous amount of time and effort spent analyzing the system. This process was a 
literal nightmare consisting of manually intensive sessions reading and tracing through 
FORTRAN source code, reading technical and user manuals, not to include several 
sessions spent actually running the Janus simulation software. Although this was an 
extremely important phase of our project and one that could not be overlooked, it was 
nevertheless, very time consuming and strenuous. The use of some well-defined 
automated tools would have been helpful in gaining system understanding. Although one 
can not assume that any one tool will be a “be all, do all”, but rather having even a small 
collection of tools will assist the software engineer in gaining system comprehension. As 
such, we highly recommend the use of automated tools to aid in reducing the time and 
effort spent analyzing the system, and also to assist the software engineer in examining 


the raw data. 


2 Cross-Reference Generators 


As part of our research we often found ourselves manually searching through the 
Janus source code to find answers to specific questions regarding a particular variable 
(i.e. who uses it, where is it used, how is it used, etc.). Professor Berzins suggested using 
the cross-reference option, which was readily available on the CS Department’s 
FORTRAN compiler. A cross-reference generator creates a list of all of the identifiers in 
a program and for each identifier in the program, it indicates the statement in which that 
identifier appears. The use of a FORTRAN cross-reference generator would have been 
very helpful in gathering needed variable information and thus assisted us in 
understanding the system. Even though we could not compile and run the Janus 
simulation system on our SUN UNIX machines, the FORTRAN compiler could have 
automatically built a cross-reference listing of all variables. Then by using this cross- 
reference, we could quickly and easily find answers to our specific questions and thus 


eliminate wasteful, time-consuming manual searches. 
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Throughout the conduct of our thesis research, few areas stand out as those 
requiring a high degree of focus and intense attention to detail. System understanding 
was one such area that demanded intensive manual activity and time. Techniques to 
automate this process would allow the developers to devote more time and energy to the 


overall design and implementation of the new system. 
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APPENDIX A. PROPOSED THREE-TIER OBJECT-ORIENTED 
ARCHITECTURE 
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APPENDIX B. EVENT CLASS HIERARCHY 
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APPENDIX C. SIMULATION OBJECT CLASS HIERARCHY 





Simulation Object 
| & Origin : 2d Coord 

















| $00 Plan() 
‘Note: The simulation object class ~ | Peet aa 
hierarchy includes every core | @Do Direct Fire() 
element object which changes state | @Display() 
during the simulation. Future | @Counterbattery() 
extension may include Terrian and ' @Search() 
Weather_Data if they are allowedto = | ®@Choose_Direct_Fire_Targets() 


change state during simulation. *Update_Chemical_Status() 
| ®Do Indirect_Fire() 
*impact_Effects() 
®Update_Heat_Status() 
®Check_Point() 
*End_Simulation() 


















Scenario 


| 
| ®Display() | 
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®Updste_Chemical_Status() 
*Update_Heat_Status() 
®Move_Update_Obj() 
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APPENDIX D. JANUS SIMULATION EVENT HANDLERS 


Name of Event Objects Remarks 
responsible 
to handle the 
event 

Do_plan scenario May be initiated by the graphical user 
interface and it in turn may schedule 
other events. See Note 1. 

Display scenario, May be triggered at regular time 
interval. See Note 1. 

Write Status scenario May be triggered at regular time 
interval. See Note 1. 

Check Point | scenario May be triggered at regular time 
interval. See Note 1. 


Move_Update_Obj Unit Updates units position due to 
movement, and schedule the next 
Move_Update Obj event for the 
object. Mapped to movement.f, 
copter.f, update.f updsldr.f, updflyer.f 

Cloud Updates shape, location (if needed), 

and expiration time. It schedules the 

; 













next Move_Update_Obj event for the 
object. Mapped to part of docloud.f, 
cldupd.f, and chmceld.f. 









Update potential target list. Use 
different methods depending on the 
kind of sensors the unit has. It also 
schedules the next search event for the 
object. Mapped to search.f, part of 
radar.f for normal and special radar. 

















Unit Updates visibility levels and performs 
IFF to produce confirmed target list. 
Selects weapons for the targets in the 
potential target list. Choose target 
from the confirmed target list and 
schedule a direct fire event. Use 
different methods depending on the 
kind of platform the unit belongs to 
and the kind of sensors the unit has. It 
also schedules next 
Choose_Direct_Fire_ Targets event for 
the object. Mapped to dodetect.f, 
detect.f, flydetc.f, handoff-f, and 
reload, and part of radar.f (for normal 
radar). 


Choose_Direct_Fire Targets 





















Unit Creates a Direct_Firing Transaction 
object and schedules an 
Impact_Effects event for the object. 
Mapped to shoot.f , and adfire.f for 


normal radar. 


Do_Direct_Fire 








Execute an arty mission. Creates an 
Indirect_Firing Transaction and 
schedule an Impact_Effects event for 
the object. Mapped to doarty.f, and 
part of firing.f. Event scheduled by 
Do_Plan event. 


Do_Indirect_Fuire 

















direct firing | Evaluate the effect of the direct fire 
transaction event and update the affected objects 
accordingly. Mapped to dfmpact.f. 


Impact_Effects 



















Evaluate the effect of the indirect fire 
event and update the affected objects 
accordingly. May create cloud objects 
and schedule Move Update Obj event 
for the cloud objects. Mapped to 
impact.f. 


indirect_firing 
_ transaction 









Searches for enemy fires and 
schedules next Counterbattery event 
for the object. Feedback is provided 
via Do_Plan event. Mapped to 





Counterbattery 


cntrbat.f. 
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Update Chemical Status Updates chemical effects on unit and 
schedules next 
Update _Chemical_ Status for the 


object. Mapped to part of dochem.f 











Update Heat_Status Updates heat effects on unit and 
schedules next Update Heat Status 
for the object. Mapped to part of 


doheat.f 


















scenario 





Clears the priority event queue and 
performs housekeeping activities. See 
Note 1. 







End Simulation 


Note 1. Depending on the graphical user interface design, this event may be replaced by 
different events and assign the event handlers to the individual objects. 
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APPENDIX E. JANUS CORE ELEMENTS 


i: JANUS CORE ELEMENTS OVERALL STRUCTURE 


| Scenario 








; a 
Environment | 





Command & Control - 


f, 
/\ 
/\ 


us 


Map_Symbols CAC Overlay 


pe ee ee 


*Aitach() 
@Detach() 





+Consists of 






57 





2 ENVIRONMENT AND WEATHER DATA CLASSES 
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'@wind_velocity : float 
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‘@atmospheric_model sint 





3. TERRAIN CLASS 


Terrain 







Elevation_Data 


EQXY : 2d Coord 
&>Elevation : Float 
















Terrain_features 
“ByDesciption- Text : Speed Degradation Factor US 


reecemresrenreet A RE OE Tt te TE 
Nea 


‘QHeight : Float | Record 

| Location : 2d coord | Wheeled_Factor : Float 
‘& olor: int Fe hoy es Tracked_Factor : Float 
| &>Fill_Pattem : Int | 7 Footed_Factor : Float 
| @Speed_degradation_Factor : Record : Flyer_Factor : Float 
[and End Record 





| @Height0 : Meters 
| ®PLOS(angle) : Probability 


| cesaseneneneneererererresmrearr— artiste SOAs OCS TO 


Building 
&&Num_of_floors: Natural 
&>Num_of_rooms: Natural 
&>Construction_type : Enum 


Linear_object 







H . 
| 2D Object &>Opening_%_exterior : Float 
|'&>Plos per 25m : Float Fortification_Time : Natural 
2d_Shape Bn shea. tom ll & “Time : Natural | 
Veo oenels)c Probability *PLOS(angle) : Probability 





K | | 
aaaanee aaa ya \ 


| 
/ | 
ae Vegetation | Generic Area_ ric Area 2d_Shape ! 
fos | 
Eaaeraee: 

| \ | 

| | 

| 

| 


| 
| } |Current Janus allows up to 
| 
| 






| 20 types of generic areas 





Current Janus allows up to 99 
building types. 







Current Janusallowsupto © 
7 types of vegetation areas 






Functional Classification = 
Residéntia!l, WareHouse, 
Commenicial, industrial, HighRise 







Current Janus allows up to 
7 types of Urban areas 





Construction Type=Lightly Clad 
Frame, Mass Construction, 
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4, LINEAR_OBJECT CLASS 





Linear_object 


&Wath(meters) 


-&Perpendicular_PLOS |< 7 





Li Line Segementtype= 
. | first, intemal, last 





rr i ch a he NE RRR Re ASRS IER Rew wnerner r Ser tr te Sa 8, 


@-Perpendicular_Plos: Float 









&Class : enum(Primary,Secondary,Lake) 
&Crossing_Time : Record 


ee rE Re EN 


*PLOS(angle) : =1.0 


| : 
| . Road 

| &>Class : enum (Primary, Secondary) 
| 
| 
| 






*PLOS (angle) : = 1.0 





Generic Object : Current Janus 
allows up to 20 types of Generic 
Objects. Crossing Time = | 
Record | 
None_time : Float | 
Avib_time : Float | 
Cev_time : Float | 
HV_Armor_time : Float 
LT_Armor_time : Float 
Wheeled_time : Float | 
Footed_time : Float | 
End Record _ | 






Current Janus allows IN / 

up to 20 types of 

fences. / 
j 


me 





eee re ne ern eeeias 

Current Janus allows up tos 

20 types of Roads 
| River : Current Janus allows up 
'to 20 types of Rivers. Crossing Time = 
* Record 

Future Versions of Janus Wheeled_time : Float 

should be able to represent ; Tracked_time : Float 

Power Lines | 3 Footed_time : Float 

Amphibious time : Float 
. End Record 
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5. CLOUD CLASS 





: Chemical 
| &>Sigma_for_chem_x_dir_at_impact: float 

| &>Sigma_for_chem_y_dir_at_impact : float : 
: &>Sigma_for_chem_x_dir_at_100_sec : float 
| &Sigma_for_chem_y_dir_at_100_sec : float | 
| &>Horizontal_growth_factor : float 
| &Verticle_growth_factor : float 

| @Chemical_mass : float 

| GAttack_concentration : float 





i ®Dose(Duration) : Float. 
7 ®Move_Update_Obj() 





Optical_Thermal 
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a ee tl A FE RM ERO 


There are two kinds of clouds: 
Chemical and Optical-Thermal. 


Optical-Thermal clouds have 6 types: HC, 
WP, Bispectral, Fog Oil, Vehicular Exhaust, 
and Dust. They are created by 5 methods : 
Vehicles, Smoke Pots, Grenades, Large Are 
a Dispensers, and Artillery. Current Janus 
only models 5 of the 30 possible 
combinations. See pages E-6 and pages 
81,82, 131-135 of the CSDATA Manual 





OTS 





6. OPTICAL_THERMAL CLASS 


Optical_Thermal 
&>Optical_dimension_length : Float 
_&>Optical_dimension_width : Float 

' &>Optical_dimension_thick : Float 
| &>Thermal_dimension_length : Float ) 
: &>Thermal_dimension_width : Float . 
| &Thermal_dimension_thick : Float ! 


ee ee hh ORE ES A SS SS 


, ®Opacity() : Probability | 


fr 


ok ae 


Grenade 


&>Distance : Float 
&>Orientation : Float 


@Move_Update_Obj() 








- Vehicular_Exhaust Smoke_Pot 
®Move_Update_Obj() 


i i ener ett stein trent 





ne ne Ae rn ERASE ARR oP 


Large_Area_Dispenser Artilery_Smoke | 





&>Length_at_which_top_stops_sloping Float 
GT otal_downwind_cloud_length : Float 

' &>1/2_width_of_short_end_of_trapezoid : Float 
Sprrepenid sie_stope : Float 
E>Trapezoid_top_slope : Float 

| >Max_1/2_length_of_diamond : Float 

| Rplnitial_diamond_length : Float 


&>Coeff_a length : float 

&>Coeff_a_width : float 

&>C oeff_a_thick : float 

&>Coeff_a_height : float 

&>Coeff_b_length : float 
. | &>Coeff_b_width : float 
"| &>Coeff_b_thick : float 





_ | &yCoeff_b_height : float 
| & Coeff_t_length : float 
&>Coeff_t_width : float 
- | &Coeff_t thick : float 
&>Coeff_t_height : float 
&>Coeff_p_length : float 
EC oeff_p_width : ficat 
&>Coeff_p_thick : float 
&>Coeff_p_heigth : float 
&>Coeff_q_length : float 
&>C oeff_q_width : float 
&>Coeff_q thick : float 
&>Coeff_q_height : float 
&>C oeff_r_length : float 
: | &>Coeff_r_width : float 
| | &>Coeff_r_thick : float 
&>Coeff_r_height : float 


| @plnitial_diamond_ht : Float 
‘&Diamond_height_growth_rate : Float 
 &>Diamond_Status : Boolean 
'&>Diam ond_w_corner : 2d Coord 

i @»Diamond_s_corner : 2d Coord 

| &>Diamond_e_corner : 2d Coord 

| >Diamond_n_corner : 2d Coord 
&Diamond_top_elevation : Float 

: &Diamond_bottom_elevation : Float 
:@)Trapezoid_Status : Boolean 

| &>Trapezoid_se_corner : 2d Coord 
 &>Trapezoid_ne_corner : 2d Coord 

| &>Trapezoid_top_elevation_east_edge : Float 
| G&Trapezoid_bottom_elevation_east_edge : Float 
| &Rectangle_Status : Boolean 
&Rectangle_se_corner : 2d Coord 

| Rectangle_ne_corner : 2d Coord 
.@Rectangle_top_elevation : Float &>Coeff_s_length : float 
Rectangle_bottom_elevation : Float _ | &>Coeff_s_width : ficat 
ont nenentnnnnnnnens | SBoCOeFfs thick : float 

| ®Move_Update_Obj() - | &Coeff_s_height : float 

| | &Move_Update_Obj() 
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Artillery can generate 4 
types of clouds (HC, WP, 
BS, Dust). The algorithm 
for computing the artillery 
smoke clouds uses 7 sets 
of coefficients (A, B, T, P, 
Q,R, S). Each set of the 
coefficients consists of 4 
attributes (Length, Width, 
Thick, Height). This data 
is used within the Janus 
smoke model's 
mathematical formulas to 
determine, over time, the 
shape of the smoke cloud, 
the height of the bottom of 
the cloud off the ground, an 
d the cloud thickness. The 
data sources is the US 
Army Atmospheric Smoke 
Lab. See pg 82 of the 
CSDATA Manual. 











a BARRIER CLASS 












Clearing_crossing_time 


&Cev : Float 
&&Hvy_armor : Float 
&>Lt_armor: Float 

& Wheeled : Float 
&>Soldier : Float 
&>Other : Float 










rt rin RENE 


Bamier 


ere rr a lt EE rt hl LR BOSE Ree nr en tential AER AE ESLER YR IE © AI I PIT 














| 
| 
: Weather_Effect 


| pe 
Clearing Crossing. Time(Weather_Data, Engineer_Type) : Float Sa Weather_data | 


| *Emplacement_Time(Weather_Data, Engineer_Type) : Float 
| *Create() 

| ®Move() 

| *Activate( 









Emplacement _Time 


&Cev : Float 
& Hvy_armor : Float 
&Lt_armor : Float 
& Wheeled : Float 
&> Soldier : Float 
Other : Float 














When a barrier is created Breached | 
Flag is initialized to False. When | 
barrierisreduced, breachedisthen | 
True and Clearing_Crossing_time | 
factor is eliminated 






i 
i 
t 
' 
: 
| 





te RE RY ep tt rere 


& Length : Integer = 250 






Length : Integer = 250 








*®Clearing Crossing_time( 


®Clearing_Crossing_time() 
*Emplacement_Time() 


*Emplacement_Time) 


*Clearing_Crossing_time() 
*Emplacement_Time() 





Deploy_AVLB 


&Deploy_Retrieve_time : Integer = 15.0 















Note: Could add wire, tank Bamer, Battl 
e posistion, etc. 

However, JANUS currently still moves 
dead vehicles with unit 





Clearing Crossing_time() 
*Emplacement_Time() 






63 





8. MINEFIELD CLASS 


Minefield 


&emplacement_method : enum 
&>mine_type : enum 
&>dud_prob_float 


method: 
hand, mech-1, 
mech-2, artillery 

























Visibility_distance | 
buttoned : float | 
& | 
G>unbuttoned : float H \ ' 
Gbinfantry : float i | \ % oe 
i | \ a ' Detection_probability 
} \ ‘ ‘Bb uttoned : float 
i \ “ |unbuttoned : float 
| \ \ }@infantry : float 
. e comarncorenres 
\ 









Activation_ probability 
G&belly : float 


& magnetic : float 
&>track: float 









Clearing _method 


&>plow_t/s_prob : record 
‘&roller_t/s_prob : record 
| @line_charge_t/s_prob : record 
'&>push_t/s_prob : record 
'&infantry_t/s_prob : record 


' All /s_prob are 
| record 
| feliability: float 
| survivability: float 
end record; 





active, dud, exploded, detected 


ee ee 
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9. UNIT CLASS 









‘in the existing Janus - Detect updates the visibility levels Ss 
for each potential target then based on the weapon, : 
schedules Do_Direct_Fire for that unit and then schedules | 
‘the next Detect for the unit | 





Targets_in_los: map(unit, visbility_level) such 
that u in DOM(targets_in_los) if and only if uin 
Los from self at the time of search. Visbility_ 
level is at time of last detect 














\ a 
ee \ | Movement_Objectives | _ Mopp Effects 
Counterbattery_Report | \ | 
eet en mee ements, i “a ~ = ~ = Pi. 
es ener SSS ye Mobile_Platform_Subsytem 


Arty_Mission 














™ *@Search L/ Needs function Get_ 
ie neegay Driect_Fire_Targets( ea a pes potential_targets(force) 
®Counterbattery() L _a | 





@indirect_Msn_Start() 


*indirect_Msn_Cancel() | Forces - 












®Change_Breach_Mode() 
®Do_Direct_Fire() 
*Do_Indirect_Fire() 
*Update_Chemical_ Status) 
®Update_Heat_Status) 
®Move_Update_Obj() 


Mounts 


+Host 


(hance 
sec cents 


| Aircraft_Unit 





Human_Unit 









Grou nd_Vehicle_Unit 





7 Rotary_Unit | Fixed_Wing_Unit 





_ @Move_Update_Obj0) #Move_Update_Obj() 





@Move_Update_ObjQ) |; ®Move_Update_Obj0) 






ren reeerrtiinientn 


Dismounted_Soldier_Unit 
Pe eee topes mie eee a ene eee 


®Move_Update_Obj0) 





Civilian_Unit 






*Move_Update_Obj 
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10. VEHICLE _UNIT CLASS 


a _POL data 
&>tank_size : float 
& mov_consumption_rate : float 
&>station_consumption_rate : float : — 

— = : resupply_type : enum(1-ammo, 2-Mogas, 3-Diesel, 4-aviation 
S>fuel_ty pe : enum(1-Mogas, 2-Diesel, 3-Aviation) | rie viene ah 3 ) 
&>f uel_amount : float E a = here irene e iat 


i re ER OREN Re I 


















| Vehicle_Unit ws 
Gv ehicle_num : int 
Gv ehicle_name : string 
&>max_visibility : float 
&sensor_height : float 
&>crew_size : int 

~<| &space_internal : float 
G»sy mbol_num : int 
@>class_symbol_num : int 
&>troop_capacity : int 
Glocation : location_ty pe 


7; destination : location_type KX 
Ze @>speed : float 


pa eae 
Rectanguhr soli Galive : bool 


&>total_weight : float 
&total_volume : float 
&>carry_weight : float 
&>carry_volume : float 












®stat_rate : float 
&»move_rate : float 






@>prep_rate : float 
Gf iring_rate : float 










Chem_data 
G>self_rec_dose : float | 
&>current_dose : float 3 
G>incapacit_mean : float | 
®pincapacit_sigma : float 
&>death_sigma : float 
&>death_mean : float 
&>self_recog_resp_time : float 
E&>chem_xmit_factor : float 
&mask_time : float 
&crew_alarm_time : float 
Gpincapacit_resp_time : float 
G&>expir_resp_time : float 
&detector_wait_time : float | 
@>alarm_concem : float | 
G>in_MOPP : bool 









&>target_list : target_list_ty pe 
G»side : short 

&>task_force : force_type 
&>suppressed : bool 




















LE A a SS ee rt ten Oe? 









ee ee : Functional_characteristics 
_____ Thermal ‘@laser_designator : bool 

'Qexposed_contrast : float @surveillance_ty pe : short(0..2) 
&defilade_contrast : float ‘&>breach_capability : short(0..5) 
ma ‘@firing_ty pe : short(1..3) 






| Optical 
contrast : float 










4 | X 
we | 
ra 
7 | 
‘surveillance: a oes 





: O=no capability 
: 1=chemical detector 
, 2=Cdr's Indep. Therm Viewer 


firing: 
1=direct fire 
2=indirect fire 
3=direct and indirect 








acai cei dant in pgs Sain ses 
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11. 





®@Move_Update_Obj0) 


Ground_Vehicle_ Unit 
@p>Track_width : float 
G&Belly_width : float 
&>Magnetic_shadow_width : float 


Vehicle_Unit 


h 
i \ 
a a 









Aircraft_Unit 


&>class : short(1-nomal, 2-Fogm, 3-Atr, 4-Special 
&>flyer_type : int 
Elow_velocity : float 
&high_velocity : float 
&low_altitude : float 


&&>high_altitude : float 


Plow_velocity() 
*high_velocity( 
*ilow_altituded 
*high_altitude( 







Fixed_wing 
| &>fuselage_type : int 


| *®fuselage_type() 
| &Move_Update_Obj() 
| 


Jammer 


&>jammer_type : int 
&>power : float 

&>angle_from_source : float 
&>concurrent_count : int 











®jammer_type() 
®power() 
*angle_from_source() 
*concurrent_count() 


| Jammer_effectiveness_curve 


&>max_pop_time : fi 
&rotor_type : int 


*hover_altitude() 
®max_pop_time() 
®mast_height0 
*Srotor_type( 





re er yt cence rece rnn a ame ae rete ery RETR e” Serre: 


Jammer_effectiveness 
G»has_effect : boo! 
has effect( 
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i 
I 
| 
@mast_height: float | 
| 
| 


®Move_Update_Obj() 





AIRCRAFT UNIT AND GROUND _VEHICLE_ UNIT CLASSES 


&>hover_altitude : float | 


oat 





12. MOBILE _PLATFORM_ SUBSYSTEM CLASS. 


te er PR fet = 






















Mine_dispenser 













se a eee G>mine_dispenser_num : int 
G&)BCIS_num : int pe eae eee hot fe 


G>processing_time : sec 
&> beamwidth : degree 
&>range_tolerance : meter 


®process_time() 
®@beamwidth() 
@range_tolerance() 





| Smoke_dispenser 


Fn nt ar vn cae nn oom mur enene cone une pee eeemenn tment dente ete ten 4 BON Ee eS ee 


| osmoke_dispenser_type : int 
| @yno_of_volleys : int 







a 


ee eg ne ans 

| @snole_dispenser) ! pelea Oats 

i — : i 1 
: ®no_of_volleys{) | apon_system Munition 






EE ELE rt Rt rr et EE 


nr 
i 


_ Direct_Fire_Weapon | 


Indirect_Fire_Weapon 


&Tubes_per_system : Int 
G&Setup_time : Float 
G»Planning_time : Fioat 
GLay_time : Float 
GReload_time : Float 
G>Tear_down_time : Float 
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13. SENSOR CLASS 




















Optical/Thermal Sensors 


Sensor # : integer 
&>Fov_narrow(deg) : float 
&>Fov_wide(deg) : float 
&Narrow_to_wide_factor : float 


| ca Sei gpacederrernreingas- onpummipapyicmn eit nikirisnninnnnieninndsb ani tentenamncaieisanaseeoel 
p. *Retum_Spectral_Band() 
Performance Curveisan |S Retum_Visibility() 


instantiation of a curve. 


| 
See Curve Class | On_Board_Seekers 


&Seeker_number : Integer 
Spectral Band: N\ &>Seeker_name : String 
1= eyes, 2=TV, 3=Early i &,Sensor_band : Integer 
FLIR, 4=Modem FLIR &%Threshold_energy : Float 
&>Desigator_energy : Float 


&>1/2_angle_vertical(deg) : Float 


















&>1/2_angle_horizontal(deg) : Float 
&»Scan_rate(sec) : Float 
G)Weapon_type : Integer 
&False_targets_per_sq_m : Float 


\ a = 











Foot_Prints 


oAngle : Float 
QRadius : Float 
oRange : Float 





Pt 
“ 
Pie 
There are 2 instances of foot prints \ 
Inner Foot Print and Outer Foor Print / 
Ee ee eee ve 








Range_Dependent_Characteristics 


larget_range(km) : Float 

oTeminal_Velocity(m/sec) : Float 
¢Fali_Angle(deg) : Float 
oseek_time(sec) : Float 
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14. RADAR CLASS 


ee ee eee gee i 


| Note: JANUS does not SaUEnAY, Sanaa 


Current! ym model GSR ace | 





Counterbattery_Radar 


G»effective_range : float 
&>beam_angle : float 
&>setup_time : float 
&>breakdown_time : float 
&>error_factor : float 













eeenanes ste, es 


ADA_Radar 
G>scan_time : float 
@>track_time : float 
&»launch_time : float 
Gm in_target_vel : float 









Note: Handoff 
capabilities to 
optical sensors 










| 


Red_radar | 
Prob_to_detect 
_, Ss Qaircrat_ num : int oe 


ff oA Q Ko: 


. 
\ Se 
. 


f \ 
/ BO Mast_only_PD_Curve 
y \ eee 
: rs 
7 


\ 


The current model of [IX / \ 


Racer bb eybeaais Mov_flank_PD_Curve Hover_PD_ Curve 
existing Janus, even ee ig 
though it is known to SAS a estes as 
| contain logical flaws. 











M ov_front_PD_Curve 
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15. RED RADARCLASS 








Red_radar 







&plength : int = 50 
| velocity_altitude_index : int 
| fuselage_index : int 


Fuselage_footpnnt | 
&track_prob_matrix : matrix 



















Velocity_altitude 
| &velocity_altitude_index : int 
altitude : meters 

| velocity : kn/hr 





























velocity_altitude_index : int 


rotor_index : int 
& hover_acquisition_time : sec 


Radar_range 
&>min_radar_range : km 


&max_radar_range : kn 


&>aspect_angle : degrees 


velocity_altitude_index : int 
&>refected_radar_signal_strength : dB 





Gprob_for_index_0 : float = 0.0 
G»prob_for_index_1 : float 
G>prob_for_index_2 : float 


@>proob_for_index_3 : float = 100.0 







Jammer_charactenstics 
G>response : bool 
&>ph_degree : Float 
@>power_of_radar: dB 

&time_penalty : sec 





SSIS ISIE 


> aspect_angle : natural 
&>reflected_radar_sig_strength : dB 









, jammer: int 


} 


Jammer_effectiveness | 
'G>has effect : bool 


| has _effect( 


adnate sa! 


fal 


16. MUNITION_TYPE CLASS 


Munition 


nn ne i 


Janus currently only 
models indirect fire 
munitions 


'&Range : Float 
'&Time_of_flight : Float 

| &>Aim_error_range : Float 
'&Aim_error_defiection : Float 
‘&Range_eror : Float 
‘&Ballisiic_emor_deflection : Float 
| &Ballistic_error_range : Float 

@ Angle_of_fall_1-3 : Float 
-&Angle_of_fall_wooded_1-3 : Flo 
‘®Angle_of_fall_town_1-3 : Float 
'G>RAP_Factor : Float 
'@>Lethal_area : 2D Shape 





MTT Fee ROR eRe ARCA Re ry ee te mene 


rent 


High Explosive 


RR eee nee ree ae ee ae ye oe et 












®Create_Cloud() | 


pests Ss SU ee 
Associated to Optical-Thermal & 
. Clouds - See Cloud Class | 


FASCAM | 
&Mines_per_round : Int. 


@Create_Cioud() 


| 





Associated t 
| Chemical 
Clouds, see 
Cloud Class 






®Create Minefield) 


a 
we 
“ 
enna - &>Submunitions_per_round : Int 
dee ! G>T arget_acquisition_radius : Float 
| | 


&False_target_factor : Float 
&Reliability_of_round : Float 
&>Reliability_of_submunition : Float 


‘Associated to On_Board_Seeker 


‘Class 
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Chemical | 
@Create_Cloud() 








at 











rN 


oO LS 





Improved Munitions 
| &>Bomblet_per_round : Int 












Precision Guided 


'GSubmunitions_per_round : Int 
'&T arget_acquisition_radius : Float 
‘&>False_taget_factor : Float 
'&>Reliability_of_round : Float 
'&>Reliability_of_submunition : Float 
.&>Designator: Enum 






‘ 
\ 


: 








17. DIRECT FIRE WEAPON CLASS 










Aa OA FEE RO Cp ETE GLORIETA 
1 

' 

3 

' 

' 


weapon_num : int 
weapon_name : string 






+targets 


| 


é | data_set : ph_curve 
_data_set : pk_curve 


















Firing_requirements 


| fmc : bool 
tatus : enum 
hold_fire : bool 


uppressed : bool 


} 
i 





CrewIndividual_characteristics 
f>lay_time : float 

















mounted : bool 
_time | 
reload _time : float | 
> aim_ time : float \ 
| 
| 
f 
\ 
\ | 
| | 3 Characteristics | 
| \ ié triggerPulls_per_reload : int 
iG >round_s : float | 
[Affected by time_factor: IN ere ae : 
[Mob oeets | ‘& rounds_per_triggerPulls : int | 
| 





Modes: 


O=no guidance 


Fire on Move: 
1= guidance 


0= Yes, no restrictions 


1=Stop, can move before impact 
2=Stop, move after impact 


3= Reduce speed to fire 






2= cannot track through smoke 
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18. CURVE CLASS 









~Data_point x type, | ee | 
: y_type_ Probability. 
‘GX : X_type es ti ie a a Extinction_Coefficient_Cure | 











'&Y : Y_type 





a 
oa 
a 
< “ 
| 
\ ‘< cap 

| aS \ eee _jIndex, Float 
Lee ae |__)Range, ' V ee a 

: ’Probability_| \ Track_Probability_Cunve 

A 


Ae cr GCimab | 
Decibel, Float 
pa eases | 
Jammer_effectiveness_ Curve : 


Cycles_per_milliradian, Mean| 


| resolvable_temp/contrast__ 


Performance_Curne 
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19. 3D SHAPE, 2D SHAPE and LINE SEGMENT CLASSES 


3D_Shape |. 0..." ae 


_ Rectangular_solid 


-§ NE HORROR RPL RII EER T 





{ordered} 


2D Shape 






Line_Segment : 


Line_Segment a 2 -2D_coord 
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20. PROBABILITY, 2D_COORDINATE, AND WAYPOINT DATA TYPES 


‘Type Probability is 0.0..1.0 © 


Type 2d_Coord = IN 
Record 
X: Float 
Y : Float 
End Record; 





Type Waypoint = 
Record 
Origin : 2d_Coord 
Earliest_Time_To Move: Float 
End Record: 
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APPENDIX F. THE PSDL SPECIFICATION FOR THE EXECUTABLE 
PROTOTYPE 


TYPE €vent type 
SPECIFICATION 
END 


IMPLEMENTATION ada event type 
END 


TIPE Event..queve. type 
SPECIFICATION 


OPERATOR empty queue 


SPECIFICATION — 
‘ OUTPUT q: event queue type 
END . 
END 


IMPLEMENTATION ada event queue type 
END 


TYPE statistics type 
SPECIFICATION 
END 


IMPLEMENTATION ada statistics type 
END 


TYPE scenario_type 
SPECIFICATION 


OPERATOR empty scenario 


SPECIFICATION 
OUTPUT s: scenario type 
END 
END 


IMPLEMENTATION ada scenario type 
END 


TYPE statistics request_type 
SPECIFICATION 
END 


IMPLEMENTATION ada statistics request type 
END 


TYPE replay request _type 
SPECIFICATION 
END 


IMPLEMENTATION ada replay request_type 
END 


TYPE user interaction type 
SPECIFICATION 


OPERATOR stop _simulation 


eo; 





SPECIFICATION 
OUTPUT x: user_interaction_type 
END 


END 


IMPLEMENTATION ada user interaction type 
END 


TYPE location_type 
SPECIFICATION 
END 


IMPLEMENTATION ada location type 
END 


TYPE game_time type 
SPECIFICATION 


OPERATOR zero 


SPECIFICATION 
OUTPUT z: game_time type 
END 
END 


IMPLEMENTATION ada game_time type 
END 


OPERATOR gui_ 3 

SPECIFICATION : 
INPUT Statistics: -statistics. type 
INPUT replay: location type 
OUTPUT scenario: scenario type 
OUTPUT user interaction: user interaction type 
OUTPUT replay request: replay request_type 
OUTPUT ‘statistics request: statistics. request type 
STATES scenario: scenario type INITIALLY scenario _type.empty scenario 
STATES new_y: float INITIALLY 0.0 
STATES new_x: float INITIALLY 0.0 
STATES first_time: boolean INITIALLY TRUE 

END 


IMPLEMENTATION 
GRAPH 

VERTEX enter new plan 75 74 
VERTEX get_y 68 67 
VERTEX get_x 65 _ 64 
VERTEX get_re 30 29 
VERTEX get_st_27 26 
VERTEX edit_plan_ 24 23. 
VERTEX get_user_in 21 20 
VERTEX gui_event_monitor_18 17: 50 MS 
VERTEX display st_31_30 
VERTEX display re 37 36 
VERTEX initial scenario 40 39 
EDGE new plan _ entered enter _new plan _75_74 -> edit plan 24 23 
EDGE new_y get_y 68 67 -> edit _plan_ 24 23 
EDGE new_x get_x_ 65_ 64 -> edit plan 24 oo 
EDGE scenario edit plan: 24.23 —>. edit _plan_ 24 23 
EDGE scenario edit plan 24 23 -> EXTERNAL 
EDGE Statistics request get_st 27 26 -> EXTERNAL 
EDGE replay request get_re 30 29 -> EXTERNAL 
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EDGE user_interaction get_user_in_21 20 -> EXTERNAL 
EDGE statistics EXTERNAL -> display_ st_ aL. 30 
EDGE scenario initial scenario 40 39 -> EXTERNAL 
EDGE replay EXTERNAL -> display re 37 36 
EDGE first. time initial scenario 40 39 -> initial ‘scenario 40 39 
DATA STREAM 
new plan entered: boolean 
CONTROL CONSTRAINTS 
OPERATOR enter new plan _75 74 
OPERATOR get_y 68 67 
OPERATOR get_x 65 _64 
OPERATOR get_re 30 29 
OPERATOR get_st_27 26 
OPERATOR edit plan 24 23 
TRIGGERED BY ALL new_plan_ entered 
OPERATOR get_user_in 21 20 
OPERATOR gui event monitor 18 17 
PERIOD 300 MS 
FINISH WITHIN 300 MS 
OPERATOR display st_31_30 
OPERATOR display re 37 36 
OPERATOR initial scenario 40 39 
TRIGGERED IF (first_time = TRUE) 
END 


OPERATOR warrior 1 
SPECIFICATION 
STATES replay position: integer INITIALLY 1 
STATES replay request: replay request_type INITIALLY 
replay request type.off 
END 


IMPLEMENTATION 
GRAPH 
VERTEX gui_3 2 
VERTEX post processor 6 5 
VERTEX janus_9 8 
VERTEX jaaws 12 11 
EDGE replay position jaaws_12 11 -> jaaws_12 11 
EDGE replay request jaaws 12 11 -> jaaws_12 11 
EDGE scenario gui.3 2 -> janus 9 8 
EDGE user _ interaction gui_3 2 -> janus_ 9 8 
EDGE replay request gui_3 2 -> jaaws_ 12 11 
EDGE statistics request gui_3 2 -> post | . PEOCESSOL. 6 5 
EDGE statistics post processor 6 5 => gui_3 2 
EDGE replay jaaws_ 12 11 -> gui 3 2 
EDGE simulation_history janus 9 8 -> jaaws_ 12 11 
EDGE simulation_history janus_ 9 8 -> post _processor_ 6 5 
DATA STREAM 
scenario: scenario type, 
user _ interaction: user_interaction type, 
statistics request: statistics request_type, 
statistics: statistics type, 
replay: location_type, 
Ssimulation_history: sequence[fe: event_type] 
CONTROL CONSTRAINTS 
OPERATOR gui_3 2 
OPERATOR post processor 6 5 
TRIGGERED BY ALL statistics request 
OPERATOR janus 9 8 
OPERATOR jaaws 12 11 
TRIGGERED IF (sequence.length(simulation_history) > 0) 
END 
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OPERATOR enter _new_plan_75 
SPECIFICATION 
OUTPUT new_plan entered: boolean 
END 


IMPLEMENTATION tae enter new plan 75 
END 


OPERATOR get_y 68 
SPECIFICATION 
OUTPUT new_y: float 
END 


IMPLEMENTATION tae get_y 68 
END 


OPERATOR get_x 65 
SPECIFICATION 
OUTPUT new _x: float 
END 


IMPLEMENTATION tae get_x 65 
END 


OPERATOR get re 30 
SPECIFICATION 
OUTPUT replay request: replay request type 
END 


IMPLEMENTATION tae get_re 30 
END 


OPERATOR get_st_27 
SPECIFICATION 
OUTPUT statistics request: statistics request_type 
END 


IMPLEMENTATION tae get_st_ 27 
END 


OPERATOR edit plan 24 

SPECIFICATION 
INPUT new plan entered: boolean 
INPUT new_y: float 
INPUT new_x: float 
INPUT scenario: scenario type 
OUTPUT scenario: scenario type 

END 


IMPLEMENTATION ada edit plan 24 
END 


OPERATOR get_user_in 21 
SPECIFICATION 
OUTPUT wiser anteraction: user interaction type 
END 


IMPLEMENTATION tae get_user_ in 21 
END 


OPERATOR gui_event_monitor 18 
SPECIFICATION 
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MAXIMUM EXECUTION TIME 50 MS 
END 


IMPLEMENTATION ada gui_event monitor 18 
END 


OPERATOR display st_31l 
SPECIFICATION 
INPUT statistics: statistics type 
END 


IMPLEMENTATION tae display st 31 
END 


OPERATOR display re 37 
SPECIFICATION 
INPUT replay: location type 
END 


IMPLEMENTATION tae display re 37 
END 


OPERATOR initial scenario 40 
SPECIFICATION 
INPUT first time: boolean 
OUTPUT scenario: scenario type 
OUTPUT first time: boolean 
END 


IMPLEMENTATION ada initial scenario 40 
END 


OPERATOR post processor 6 
SPECIFICATION 
INPUT statistics. request: statistics request type 
INPUT simulation_history: sequence[e: event type] 
OUTPUT Statistics: statistics type 
END 


IMPLEMENTATION ada post _processor 6 
END 


OPERATOR janus_9 
SPECIFICATION 
INPUT scenario: scenario type 
INPUT user _ interaction: user interaction_type 
OUTPUT simulation history: sequence[e: event type] 
STATES game_time: game_time_ type INITIALLY game_time type.zero 
STATES event_q: event _queue type INITIALLY event queue type.empty 
END 


IMPLEMENTATION 
GRAPH 

VERTEX create new_events 114 113 
VERTEX do _event_ 66_ 65: 100 MS 
VERTEX create _user_event_ 69 68 
EDGE game _ time do_ event_ 66_ 65 -> create _user event 69 68 
EDGE game_time do. event __ 66, 6p: => do: s event_ 66_ 65 
EDGE event_q do _event_ 66_ 65 -> do_ event_ 66_ 65 
EDGE simulation _ history do event _ 66_ 65 -> do _event_66 65 
EDGE event q create new events 114 113 -> do event 66 65 
EDGE game_time do_event_66 65 -> create new events 114 113 
EDGE event_q do_event 66 65 -> create new _events 114 113 


$1 





EDGE event_q create user event 69 68 -> do event_66 65 
EDGE event _q do_ event_ 66_ 65 -> create USer; _event_ 69 68 
EDGE scenario EXTERNAL -> create _new_ events 114 Bree 
EDGE simulation_history do_event_ 66_ 65 -> EXTERNAL 
EDGE user interaction EXTERNAL -> create _user_event_69 68 
CONTROL CONSTRAINTS 

OPERATOR create new events 114 113 

TRIGGERED IF not (scenario type.is empty (scenario) ) 
OPERATOR do_event_66 65 

TRIGGERED IF not (event _queue type.is_ empty(event_q)) 

PERIOD 1000 MS 
OPERATOR create_user event 69 68 

TRIGGERED IF (user_interaction = stop _simulation) 


END 


OPERATOR create new events 114 
SPECIFICATION 
INPUT game time: game time type 
INPUT event _q: event _queue_ type 
INPUT scenario: scenario type 
OUTPUT event _q: event queue type 
END 


IMPLEMENTATION ada Create new events 114 
END 


OPERATOR do_event_66 

SPECIFICATION 
INPUT game time: game _time type 
INPUT simulation_history: sequence[e: event_type] 
INPUT event _q: event queue type 
OUTPUT game _ time: game time type 
OUTPUT event_q: event _queue type 
OUTPUT simulation history: sequence[e: event_type] 
MAXIMUM EXECUTION TIME 100 MS 

END 


IMPLEMENTATION ada do event 66 
END 


OPERATOR create _user event 69 
SPECIFICATION 
INPUT game_time: game time type 
INPUT event_q: event queue type 
INPUT user interaction: user interaction_type 
OUTPUT event_q: event queue type 
END 


IMPLEMENTATION ada create user event_69 
END 


OPERATOR jaaws 12 

SPECIFICATION 
INPUT replay position: integer 
INPUT replay request: replay request type 
INPUT simulation history: sequence[e: event_type] 
OUTPUT replay position: integer 
OUTPUT replay request: replay request_type 
OUTPUT replay: location_type 

END 


IMPLEMENTATION ada jaaws 12 
END 
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APPENDIX G. THE ADA/C SOURCE CODE OF THE PROTOTYPE 


WARRIOR_1.ADB 


with WARRIOR_1 STATIC_SCHEDULERS; use WARRIOR_1 STATIC SCHEDULERS; 
with WARRIOR __ ia _DYNAMIC_SCHEDULERS; use WARRIOR_ id _DYNAMIC _SCHEDULERS; 
with CAPS _ HARDWARE _MODEL; use CAPS HARDWARE _MODEL; 

procedure WARRIOR _ 1 is 

begin 
init hardware model; 
start _static_schedule; 
start_dynamic_schedule; 

end WARRIOR 1; 


WARRIOR _1 DRIVERS.ADS 


package WARRIOR _1 DRIVERS is 
procedure POST PROCESSOR 6 5 DRIVER; 
procedure JDAWS _ 12 11 _DRIVER; 
procedure ENTER | _NEW_ PLAN 75_74 DRIVER; 
procedure GET Y 68 67 DRIVER; 
procedure GET X 65 64 DRIVER; 
procedure GET _RE _30 29 _ DRIVER; 
procedure GET ST 27 26 _DRIVER; 
procedure EDIT PLAN 24 23 _ DRIVER; 
procedure GET_ USER_ IN_ 212 20 _ DRIVER; 
procedure GUI _EVENT _MONITOR_ 18 17 DRIVER; 
procedure DISPLAY_ St. 31.30 _DRIVER; 
procedure DISPLAY _ RE 37 36 DRIVER; 
procedure INITIAL __SCENARIO_ 40 39 DRIVER; 
procedure CREATE _NEW_ EVENTS _ 114 masks _ DRIVER; 
procedure DO_ EVENT_ 66_ 62.2 DRIVER; 
procedure CREATE USER EVENT 69 68 DRIVER; 
end WARRIOR_1 DRIVERS; 


WARRIOR_1 DRIVERS.ADB 


-- with/use clauses for atomic components. 

with EVENT _TYPE_ PKG; use EVENT_TYPE_PKG; 

with EVENT _QUEUE TYPE PKG; use EVENT _QUEUE TYPE PKG; 

with STATISTICS _ TYPE _PKG; use STATISTICS _TYPE _ PKG; 

with SCENARIO _ TYPE _PKG; use SCENARIO _ TYPE PKG; 

with STATISTICS _REQUEST _ TYPE PKG; use STATISTICS REQUEST TYPE PKG; 
with REPLAY _REQUEST _ TYPE _PKG; use REPLAY REQUEST TYPE PKG; 
with USER_ INTERACTION _ TYPE _PKG; use USER_ INTERACTION | TYPE _PKG; 
with LOCATION _ TYPE _PKG; use LOCATION _TYPE _ PKG; 

with GAME _TIME_ TYPE _PKG; use GAME _TIME _TYPE _PKG; 

with ENTER_ NEW_ PLAN _ 75. PKG; use ENTER_ NEW_ PLAN ale _PKG; 

with GET _ i 68 _ PKG; use GET _Y_ 68 PKG; 

with GET es 65_ PKG; use GET £4 65 _ PKG; 

with GET _RE_ 30. PKG; use GET _RE _30 _ PKG; 

with GET Sy ee ge _PKG; use GET _ST ey, _PKG; 

with EDIT_ PLAN _ oA _PKG; use EDIT_ PLAN | 24 PKG; 

with GET _USER_ IN_ eal _PKG; use GET_ USER_ IN Ze _ PKG; 

with GUI _EVENT _MONITOR_ 18 PKG; use GUI _EVENT _MONITOR_18 _ PKG; 
with DISPLAY_ ST chi _PKG; use DISPLAY _ ST Sk. PKG; 

with DISPLAY RE 37. _PKG; use DISPLAY RE. av ae _ PKG; 

with INITIAL _ _SCENARIO_ 40 _PKG; use INITIAL _ SCENARIO _ 40 _ PKG; 
with POST _ PROCESSOR _ 6 _ PKG; use POST_ PROCESSOR _ 6 _ PKG; 

with CREATE NEW EVENTS 114 PKG; use CREATE _NEW_ EVENTS _ 114 PKG; 
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with DO EVENT 66 PKG; use DO_EVENT_66_ PKG; 
with CREATE USER _EVENT_ 69 PKG; use CREATE USER_EVENT_ 69 PKG; 
with JAAWS_ 12 PKG; use JAAWS 12 PKG; 
~- with/use clauses for generated packages. 
with WARRIOR 1 EXCEPTIONS; use WARRIOR 1 EXCEPTIONS; 
with WARRIOR_1 STREAMS; use WARRIOR _1 STREAMS; 
with WARRIOR 1 TIMERS; use WARRIOR _1 TIMERS; 
with WARRIOR 1 INSTANTIATIONS; use ~ WARRIOR_ 1 INSTANTIATIONS; 
~~ with/use clauses for CAPS library packages. 
with DS DEBUG PKG; use DS DEBUG PKG; 
with PSDL_ STREAMS; use PSDL_ STREAMS; 
with PSDL STRING PKG; use PSDL STRING_PKG; 
with PSDL TIMERS; 
package body WARRIOR _1 DRIVERS is 


procedure POST _PROCESSOR_6 5 DRIVER is 
LV_ STATISTICS REQUEST 
STATISTICS REQUEST TYPE PKG.STATISTICS REQUEST TYPE; 
LV_ SIMULATION _ HISTORY : EVENT _TYPE _ SEQUENCE; 
LV. STATISTICS : STATISTICS _TYPE_ PKG. STATISTICS TYPE? 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL_ EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_STATISTICS REQUEST POST PROCESSOR_6_5.NEW_DATA) then 
return; 
end if; 


-- Data stream reads. 
begin 
DS _ STATISTICS REQUEST POST PROCESSOR_6 5.BUFFER. READ ( 
LV_ STATISTICS REQUEST) ; 
exception 
when BUFFER UNDERFLOW => 
DS_DEBUG. BUFFER _UNDERFLOW ("STATISTICS REQUEST POST_PROCESSOR ae, 
"POST PROCESSOR_ 6:20") % 
end; 
begin 
DS SIMULATION HISTORY POST PROCESSOR_6_5.BUFFER.READ ( 
LV_SIMULATION_HISTORY) ; 
exception 
when BUFFER UNDERFLOW => 
DS DEBUG. BUFFER _UNDERFLOW ("SIMULATION HISTORY POST pEROCES OR OLD 
"POST PROCESSOR 6 5"); 
end; 


~- Execution trigger condition check. 
if True then 
begin 
POST PROCESSOR_6( 
STATISTICS _REQUEST => LV_STATISTICS REQUEST, 
SIMULATION HISTORY => LV_ SIMULATION HISTORY, 
STATISTICS => LV_STATISTICS) ; 
exception 
when others => 
DS DEBUG.UNDECLARED EXCEPTION ("POST PROCESSOR _ 6.5" )7 
EXCEPTION _ HAS _OCCURRED >= true; 
EXCEPTION ID >= UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end: if; 
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-- Exception Constraint translations. 
~- Other constraint option translations. 


-- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 
DS_STATISTICS DISPLAY ST_31 30.BUFFER.WRITE(LV_STATISTICS) ; 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_ OVERFLOW ("STATISTICS DISPLAY ST_31 30", 
"POST _PROCESSOR_6_5"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS_DEBUG.UNHANDLED EXCEPTION ( 
"POST _PROCESSOR_6_5", 
PSDL_ EXCEPTION" IMAGE (EXCEPTION ID) ); 
end if; 
end POST PROCESSOR_6 5 DRIVER; 


procedure JAAWS 12 11 DRIVER is 
LV_ SIMULATION HISTORY : EVENT TYPE SEQUENCE; 
LV_REPLAY POSITION : INTEGER; 
LV_REPLAY REQUEST : REPLAY REQUEST TYPE _PKG.REPLAY REQUEST TYPE; 
LV_REPLAY : LOCATION_TYPE_PKG.LOCATION_TYPE; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL EXCEPTION; 

begin 

-- Data trigger checks. 


-- Data stream reads. 
begin 
DS REPLAY POSITION JAAWS 12 11.BUFFER.READ(LV_ REPLAY POSITION); 
exception 
when BUFFER UNDERFLOW => 
DS_DEBUG.BUFFER UNDERFLOW ("REPLAY POSITION JAAWS 12 11", 
"JAAWS 12 11"); 
end; 
begin 
DS_REPLAY REQUEST JAAWS 12 11.BUFFER.READ(LV REPLAY REQUEST) ; 
exception 
when BUFFER_UNDERFLOW => 
DS DEBUG.BUFFER_UNDERFLOW ("REPLAY REQUEST JAAWS 12 11", 
"JAAWS 12 11"); 
end; 
begin 
DS_ SIMULATION HISTORY JAAWS 12 11.BUFFER.READ(LV_SIMULATION HISTORY) ; 
exception 
when BUFFER UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW ("SIMULATION_HISTORY_JAAWS 12 11", 
"JAAWS 12 11"); 
end; 


-- Execution trigger condition check. 
if (LENGTH(LV_ SIMULATION HISTORY) > 0) then 
begin 
JAAWS 12 ( 
SIMULATION HISTORY => LV SIMULATION HISTORY, 
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REPLAY POSITION => LV_ REPLAY POSITION, 
REPLAY REQUEST => LV_REPLAY REQUEST, 
REPLAY => LV_REPLAY) ; 
exception 
when others => 
DS DEBUG.UNDECLARED EXCEPTION ("JAAWS 12 11"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


-~- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 
DS REPLAY POSITION JAAWS 12 11.BUFFER.WRITE(LV_REPLAY POSITION) ; 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW ("REPLAY POSITION JAAWS 12 11", 
"JARAWS 12.11"); 
end; 
end if; 
if not EXCEPTION HAS OCCURRED then 
begin 
DS REPLAY REQUEST JAAWS 12 11.BUFFER.WRITE(LV_REPLAY REQUEST) ; 
exception 
when BUFFER OVERFLOW => 
DS DEBUG. BUFFER_OVERFLOW ("REPLAY REQUEST JAAWS 12 11", 
"JAAWS 12.11"); 
end; 
end if; 
if not EXCEPTION HAS OCCURRED then 
begin 
DS_ REPLAY DISPLAY RE _37_36.BUFFER.WRITE (LV_REPLAY) ; 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW ("REPLAY DISPLAY _RE_37_36", "JAAWS_12_11"); 
end; 
end if; : 
-- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS_DEBUG.UNHANDLED EXCEPTION ( 
"JAAWS 12 11", 
PSDL_EXCEPTION' IMAGE (EXCEPTION _ID)); 
end if; 
end JAAWS 12 11 DRIVER; 


procedure ENTER_NEW PLAN_75_ 74 DRIVER is 
LV_NEW PLAN ENTERED : BOOLEAN; 
EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL_ EXCEPTION; 

begin 


-- Data trigger checks. 


~~ Data stream reads. 
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-~ Execution trigger condition check. 
if ENTER _NEW PLAN 75 PKG.has new_input then 
begin 
ENTER NEW PLAN 75 ( 
NEW_ PLAN _ENTERED => LV_NEW_PLAN_ ENTERED) ; 
exception 


when others => 
DS DEBUG. UNDECLARED _EXCEPTION ("ENTER NEW_ PLAN _ VO IAN TG 


EXCEPTION _ HAS _ OCCURRED := true; 
EXCEPTION ID >= UNDECLARED ADA EXCEPTION; 


end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


-- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 


DS NEW PLAN ENTERED EDIT PLAN 24 23.BUFFER.WRITE ( 
LV_NEW PLAN ENTERED) ; 


exception 


when BUFFER_OVERFLOW => 
DS_DEBUG. BUFFER _OVERFLOW ("NEW _PLAN ENTERED EDIT PLAN 24 223", 
“ENTER _ NEW_ PLAN _ Wo ee ake 


end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS DEBUG.UNHANDLED EXCEPTION ( 
"ENTER NEW PLAN 75 74", 
PSDL_ EXCEPTION’ IMAGE (EXCEPTION_ID)); 


end if; 
end ENTER NEW PLAN 75_74 DRIVER; 


procedure GET_Y_68 67 DRIVER is 
LV_NEW Y : FLOAT; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL_ EXCEPTION; 


begin 
-- Data trigger checks. 


~- Data stream reads. 


-- Execution trigger condition check. 
if GET_Y 68 PKG.has new input then 
begin 
GET _Y_ 68 ( 
NEW Y => LV_NEW_Y); 
exception 


when others => 
DS DEBUG.UNDECLARED EXCEPTION ("GET _Y_68 67"); 


EXCEPTION HAS OCCURRED := true; 
EXCEPTION ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 
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-- Exception Constraint translations. 
-- Other constraint option translations. 


-- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 
DS NEW Y EDIT PLAN 24 23.BUFFER.WRITE(LV_ NEW _Y); 
exception 
when BUFFER OVERFLOW => 
DS DEBUG.BUFFER_OVERFLOW ("NEW_Y EDIT PLAN 24 23", "GET_Y_68_67"); 
end; 
end if; 


-~- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS DEBUG.UNHANDLED EXCEPTION ( 
"GBT 1. Oo. 07, 
PSDL EXCEPTION' IMAGE (EXCEPTION _ID)); 
end if; 
end GET Y 68 67 DRIVER; 


procedure GET X_65 64 DRIVER is 
LV_NEW X : FLOAT; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL_ EXCEPTION; 

begin 

-~ Data trigger checks. 


-- Data stream reads. 


-- Execution trigger condition check. 
if GET X 65 _PKG.has new_input then 
begin 
GET X_65( 
NEW X => LV_NEW_X); 
exception 
when others => 
DS _DEBUG.UNDECLARED EXCEPTION ("GET_X_65_ 64"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
~- Other constraint option translations. 


~- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 
DS NEW X EDIT PLAN 24 23.BUFFER.WRITE(LV_NEW_X); 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ("NEW_X_EDIT_PLAN 24 23", "GET_X_65_64"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
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DS_DEBUG.UNHANDLED_ EXCEPTION ( 
"GET X 65 64", 
PSDL EXCEPTION' IMAGE (EXCEPTION ID) ); 
end if; 
end GET X 65 _ 64 DRIVER; 


procedure GET_RE 30 29 DRIVER is 
LV REPLAY REQUEST : REPLAY REQUEST TYPE_PKG.REPLAY REQUEST TYPE; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL_ EXCEPTION; 

begin 

-~- Data trigger checks. 


~~ Data stream reads. 


-~- Execution trigger condition check. 


if GET_RE_ 30 PKG.has new_input then . 
begin 
GET_RE_ 30( 
REPLAY REQUEST => LV_REPLAY REQUEST) ; 
exception 


when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("GET_RE 30 29"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 


-- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 
DS REPLAY REQUEST JAAWS 12 11.BUFFER.WRITE (LV REPLAY REQUEST) ; 
exception 
when BUFFER_OVERFLOW => 
DS DEBUG. BUFFER_OVERFLOW ("REPLAY REQUEST_JAAWS 12 11", 
"GET RE 30 29"); 
end; 
end if; 


-- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS_DEBUG.UNHANDLED EXCEPTION ( 
"GET RE 30 29", 
PSDL_EXCEPTION' IMAGE (EXCEPTION ID) ); 
end if; 
end GET RE 30 29 DRIVER; 


procedure GET ST 27 26 DRIVER is 
LV_STATISTICS REQUEST 


STATISTICS REQUEST TYPE PKG.STATISTICS REQUEST TYPE; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL EXCEPTION; 

begin 

-~ Data trigger checks. 
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~- Data stream reads. 


~~ Execution trigger condition check. 
if GET ST 27 PKG.has_new_input then 
begin 
GET ST 27 
STATISTICS REQUEST => LV_STATISTICS REQUEST) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED EXCEPTION ("GET ST 27 26"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION _ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
~~ Other constraint option translations. 


-~- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 
DS_STATISTICS REQUEST POST _PROCESSOR_6 5.BUFFER.WRITE ( 
LV_STATISTICS REQUEST) ; 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG. BUFFER_OVERFLOW ("STATISTICS REQUEST POST PROCESSOR 6 5", 
"GET..ST 27.26"); 
end; ——— 
end if; 


-- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS_DEBUG.UNHANDLED EXCEPTION ( 
MGR. Si. 2) 26", 
PSDL_EXCEPTION'IMAGE (EXCEPTION ID)); 
end if; 
end GET ST 27 26 DRIVER; 


procedure EDIT PLAN 24 23 DRIVER is 
LV_NEW PLAN ENTERED : BOOLEAN; 
LV NEW Y : FLOAT; 
LV NEW X : FLOAT; 
LV_SCENARIO : SCENARIO _TYPE_PKG.SCENARIO TYPE; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL EXCEPTION; 
begin 
-- Data trigger checks. 
if not (DS_NEW_PLAN ENTERED EDIT PLAN 24 23.NEW DATA) then 
return; 
end if; 


-- Data stream reads. 
begin 
DS_NEW PLAN ENTERED EDIT PLAN 24 23.BUFFER.READ(LV_NEW_PLAN ENTERED) ; 
exception 
when BUFFER UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW ("NEW PLAN ENTERED EDIT PLAN 24 23", 
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"EDIT PLAN 24 23"); 
end; 
begin 
DS NEW _Y_ EDIT PLAN 24 23.BUFFER.READ(LV_NEW_Y); 
exception 
when BUFFER UNDERFLOW => 
DS DEBUG.BUFFER_UNDERFLOW("NEW_Y EDIT PLAN 24 23", 
"EDIT PLAN 24 23"); 
end; 
begin 
DS NEW _X EDIT PLAN 24 23.BUFFER.READ(LV_NEW_X); 
exception 
when BUFFER UNDERFLOW => 
DS DEBUG.BUFFER_UNDERFLOW ("NEW _X EDIT PLAN 24 23", 
"EDIT PLAN 24 23"); 
end; 
begin 
DS SCENARIO EDIT PLAN 24 23.BUFFER.READ(LV_SCENARIO) ; 
exception 
when BUFFER UNDERFLOW => 
DS DEBUG. BUFFER_UNDERFLOW ("SCENARIO_EDIT_PLAN 24 23", 
"EDIT PLAN 24 23"); 
end; 


~- Execution trigger condition check. 
if True then 
begin 
EDIT PLAN 24 ( 
NEW PLAN ENTERED => LV_NEW PLAN ENTERED, 
NEW Y => LV_NEW Y, 
NEW X => LV_NEW X, 
SCENARIO => LV_SCENARIO) ; 
exception 
when others => 
DS DEBUG.UNDECLARED EXCEPTION ("EDIT PLAN 24 23"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 


~~ Exception Constraint translations. 
-- Other constraint option translations. 


-- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 
DS SCENARIO CREATE NEW EVENTS 114 113.BUFFER.WRITE (LV_SCENARIO) ; 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW ("SCENARIO CREATE NEW_EVENTS 114 113", 


"EDIT PLAN 24 23"); 

end; 
begin 

DS SCENARIO EDIT PLAN 24 23.BUFFER.WRITE(LV_SCENARIO) ; 
exception 

when BUFFER OVERFLOW => 

DS_DEBUG.BUFFER_OVERFLOW ("SCENARIO_EDIT_PLAN 24 23", 
“EDIT PLAN 24 23"); 

end; 


9] 


end if; 


-- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS DEBUG.UNHANDLED EXCEPTION ( 
"EDIT PLAN 24 23", 
PSDL_EXCEPTION'IMAGE (EXCEPTION ID) ); 
end if; 
end EDIT PLAN 24 23 DRIVER; 


procedure GET USER_IN 21 20 DRIVER is 
LV_USER_INTERACTION : USER_INTERACTION TYPE PKG.USER INTERACTION TYPE; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION _ID: PSDL_EXCEPTION; 
begin 
, -- Data trigger checks. 


-- Data stream reads. 


--~ Execution trigger condition check. 
if GET USER _IN 21 PKG.has new_input then 
begin 
GET _USER_IN_21( 
USER_INTERACTION => LV_USER INTERACTION) ; 
exception 
when others => 
DS DEBUG.UNDECLARED_ EXCEPTION ("GET USER_IN 21 20"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
~- Other constraint option translations. 


-- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 
DS USER_INTERACTION CREATE USER_EVENT 69 68.BUFFER.WRITE ( 
LV_USER_INTERACTION) ; 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_ OVERFLOW ( 
"USER_INTERACTION CREATE USER_EVENT 69 68", "GET_USER_IN 21 20"); 
end; 7 
end “11; 


-- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS DEBUG.UNHANDLED EXCEPTION ( 
"GET USER_IN 21 20", 
PSDL_EXCEPTION' IMAGE (EXCEPTION _ID)); 
end if; 
end GET USER_IN_ 21 20 DRIVER; 


procedure GUI_EVENT MONITOR 18 17 DRIVER is 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
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EXCEPTION ID: PSDL_ EXCEPTION; 
begin 
-- Data trigger checks. 


-- Data stream reads. 


~- Execution trigger condition check. 
if True then 
begin 
GUI EVENT MONITOR_18; 
exception 
when others => 
DS_DEBUG.UNDECLARED_ EXCEPTION ("GUI_EVENT_MONITOR_18_17"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 


~- Exception Constraint translations. 
-- Other constraint option translations. 
-- Unconditional output translations. 


-- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS _DEBUG.UNHANDLED_ EXCEPTION ( 
"GUI EVENT MONITOR_18 17", 
PSDL_EXCEPTION' IMAGE (EXCEPTION _ID)); 
end if; 
end GUI_EVENT MONITOR_18_17_DRIVER; 


procedure DISPLAY ST_31_30_DRIVER is 
LV STATISTICS : STATISTICS _TYPE_PKG.STATISTICS_TYPE; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL_ EXCEPTION; 

begin 

-- Data trigger checks. 


-- Data stream reads. 
begin 
DS STATISTICS DISPLAY _ST_31_30.BUFFER.READ(LV_STATISTICS) ; 
exception 
when BUFFER _UNDERFLOW => 


DS DEBUG. BUFFER_UNDERFLOW ("STATISTICS DISPLAY _ST_31_30", 
"DISPLAY ST.31: 30"); 


end; 


-~ Execution trigger condition check. 
if True then 
begin 
DISPLAY ST_31( 
STATISTICS => LV_ STATISTICS) ; 
exception 
when others => 
DS DEBUG.UNDECLARED_ EXCEPTION ("DISPLAY_ST_31_30"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
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end if; 
-~ Exception Constraint translations. 
-- Other constraint option translations. 
-~ Unconditional output translations. 


-- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS_DEBUG.UNHANDLED EXCEPTION ( 
"DISPLAY..ST. 31.30", 
PSDL_EXCEPTION' IMAGE (EXCEPTION ID)); 
end if; 
end DISPLAY ST 31 30 DRIVER; 


procedure DISPLAY RE 37 36 DRIVER is 
LV_REPLAY : LOCATION _TYPE_PKG.LOCATION TYPE; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL_ EXCEPTION; 

begin 

-- Data trigger checks. 


-~ Data stream reads. 
begin 
DS_REPLAY DISPLAY RE_ 37 36.BUFFER.READ(LV_ REPLAY) ; 
exception 
when BUFFER_UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW ("REPLAY DISPLAY RE_37 36", 
*DIOPLAY RE.37 367) 4 


end; 


-~- Execution trigger condition check. 
if True then 
begin 
DISPLAY RE 37 ( 
REPLAY => LV REPLAY); 
exception 
when others => 
DS_DEBUG.UNDECLARED EXCEPTION ("DISPLAY RE 37 36"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-- Other constraint option translations. 
-~- Unconditional output translations. 


-- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS_DEBUG.UNHANDLED EXCEPTION ( 
"DISPLAY RE 237..36'", 
PSDL_EXCEPTION' IMAGE (EXCEPTION ID)); 
end if; 
end DISPLAY RE 37 36 DRIVER; 
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procedure INITIAL SCENARIO 40 39 DRIVER is 
LV_ SCENARIO : SCENARIO TYPE PKG.SCENARIO TYPE; 
LV_FIRST_ TIME : BOOLEAN; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL EXCEPTION; 

begin 

-- Data trigger checks. 


~- Data stream reads. 
begin 
DS FIRST TIME INITIAL SCENARIO 40 39.BUFFER.READ(LV_FIRST TIME); 
exception 
when BUFFER UNDERFLOW => 
DS DEBUG. BUFFER_UNDERFLOW ("FIRST TIME INITIAL SCENARIO_40_ 33", 


"INITIAL SCENARIO 40 39"); 
end; 


-- Execution trigger condition check. 
if (LV_FIRST TIME = true) then 
begin 
INITIAL SCENARIO 40 ( 
SCENARIO => LV_SCENARIO, 
FIRST TIME => LV_FIRST_TIME) ; 
exception 
when others => 
DS _DEBUG.UNDECLARED EXCEPTION ("INITIAL SCENARIO 40 39"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
-~ Other constraint option translations. 


- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 
DS_SCENARIO_ CREATE NEW EVENTS 114 113.BUFFER.WRITE(LV_SCENARIO) ; 
exception 
when BUFFER_OVERFLOW => 
DS DEBUG. BUFFER_OVERFLOW ("SCENARIO CREATE _NEW_EVENTS 114 bE eee 


"INITIAL SCENARIO 40 39"); 
end; 


begin 
DS SCENARIO EDIT PLAN 24 23.BUFFER.WRITE(LV_SCENARIO) ; 
exception 
when BUFFER OVERFLOW => 
DS_ DEBUG. BUFFER_OVERFLOW ("SCENARIO EDIT PLAN 24 23", 
"INITIAL SCENARIO 40 39"); 
end; 
ena if; 
if not EXCEPTION HAS OCCURRED then 
begin 
DS FIRST TIME INITIAL SCENARIO 40 _39.BUFFER.WRITE (LV_FIRST_TIME) ; 
exception 
when BUFFER OVERFLOW => 
DS DEBUG.BUFFER_OVERFLOW ("FIRST TIME INITIAL SCENARIO 40 39", 


"INITIAL SCENARIO 40 39"); 
end; 


end if; 
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~- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS_DEBUG.UNHANDLED EXCEPTION ( 
WINITIAL _SCENARIO_ 40_ So 
PSDL . EXCEPTION! IMAGE (EXCEPTION ID) ); 
end if; 
end INITIAL SCENARIO 40 39 DRIVER; 


procedure CREATE NEW_EVENTS 114 113 DRIVER is 
LV_GAME TIME : ~ GAME TIME - TYPE PKG. GAME LIME LYPE; 
LV_SCENARIO : SCENARIO | TYPE PKG. SCENARIO_ TYPE; 
LV_EVENT Q : EVENT _QUEUE_ TYPE_ PKG. EVENT _QUEUE_ TYPE; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL EXCEPTION; 

begin 

-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_GAME TIME CREATE NEW_EVENTS_ 114 113.BUFFER.READ(LV_ GAME TIME); 
exception 
when BUFFER UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("GAME_TIME_CREATE_NEW_EVENTS 114 113", 
"CREATE NEW EVENTS 114 113"); 


end; 
begin 
DS_EVENT_Q CREATE NEW EVENTS 114 113.BUFFER.READ(LV EVENT Q); 
exception 
when BUFFER _UNDERFLOW => 
DS DEBUG. BUFFER _UNDERFLOW ("EVENT _Q CREATE NEW EVENTS 114 113", 
"CREATE _NEW _EVENTS_ 114 me ae F 


end; 
begin 
DS_SCENARIO CREATE NEW_EVENTS 114 113.BUFFER.READ (LV SCENARIO) ; 
exception 
when BUFFER UNDERFLOW => 
DS_DEBUG.BUFFER_OUNDERFLOW ("SCENARIO CREATE NEW EVENTS 114 113", 
"CREATE NEW EVENTS 114 113"); 


end; 


-- Execution trigger condition check. 
if not (SCENARIO TYPE _PKG.IS EMPTY (LV_SCENARIO)) then 

begin 

CREATE NEW EVENTS 114 ( 
GAME TIME => LV_GAME TIME, 
SCENARIO => LV_SCENARIO, 
EVENT Q => LV_EVENT Q); 

exception 


when others => 
DS DEBUG. UNDECLARED aorta ease NEW_EVENTS 114 oe 


EXCEPTION HAS _OCCURRED | = true; 
EXCEPTION ID := UNDECLARED ADA EXCEPTION; 


end; 
else return; 
end if; 
-- Exception Constraint translations. 


~- Other constraint option translations. 
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-- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 
DS EVENT Q CREATE USER_EVENT_ 69 68.BUFFER.WRITE (LV_EVENT_Q); 
exception 
when BUFFER OVERFLOW => 
DS_ DEBUG. BUFFER _ OVERFLOW ("EVENT_Q CREATE _ USER_ EVENT 69 68", 
"CREATE_ NEW _EVENTS _ “1214 oe eae a 
end; 
begin 
DS EVENT Q CREATE NEW_EVENTS 114 113.BUFFER.WRITE(LV_EVENT_Q) ; 
exception 
when BUFFER OVERFLOW => 
DS DEBUG. BUFFER _OVERFLOW ("EVENT Q CREATE NEW _EVENTS 114 113”, 
"CREATE _NEW _EVENTS _ 114 ae e 
end; 
begin 
DS EVENT Q DO_EVENT 66_65.BUFFER.WRITE (LV_EVENT_Q); 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG. BUFFER _ OVERFLOW ("EVENT _Q DO EVENT 66_65", 
"CREATE _ “NEW _EVENTS_ 114 113"); 
end; 
end if; 


~~ PSDL Exception handler. 
cle EXCEPTION HAS OCCURRED then 
DS DEBUG. UNHANDLED _ EXCEPTION ( 
"CREATE _NEW_ EVENTS _ 114 me Ee ae 
PSDL | EXCEPTION' IMAGE (EXCEPTION _ ED) )3 
end if; 
end CREATE NEW EVENTS 114 113 DRIVER; 


procedure DO EVENT 66 65 DRIVER is 
LV_GAME _ TIME : GAME _TIME _TYPE_PKG.GAME TIME TYPE; 
LV | "EVENT _Q : EVENT _QUEUE_ _TYPE_ PKG. EVENT _QUEUE_TYPE; 
LV_ SIMULATION HISTORY : EVENT TYPE SEQUENCE; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL_ EXCEPTION; 

begin 

-- Data trigger checks. 


-- Data stream reads. 
begin 
DS_GAME TIME DO EVENT_66_65.BUFFER.READ(LV_GAME_TIME) ; 
exception 
when BUFFER UNDERFLOW => 
DS _DEBUG.BUFFER_UNDERFLOW ("GAME TIME DO _EVENT_66_65", 
"DO EVENT 66 65"); 
end; 
begin 
DS SIMULATION _HISTORY_DO EVENT_66_65.BUFFER.READ ( 
LV_SIMULATION_HISTORY) ; 
exception 
when BUFFER UNDERFLOW => 
DS_ DEBUG. BUFFER _UNDERFLOW ("SIMULATION _HISTORY_DO_EVENT_66_65", 
DO. EVENT _ 66 65"); 
end; 
begin 
DS _EVENT_Q DO_EVENT_66_65.BUFFER.READ(LV_EVENT_Q); 
exception 
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when BUFFER _UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("EVENT_Q DO EVENT 66 65", 
"DO EVENT 66 65"); 
end; 


+- Execution trigger condition check. 
if not (EVENT_QUEUE_TYPE_PKG.IS EMPTY(LV_EVENT Q)) then 
begin 
DO_ EVENT 66( 
GAME TIME => LV_GAME TIME, 
EVENT _Q => LV_EVENT Q, 
SIMULATION HISTORY => LV_SIMULATION HISTORY) ; 
exception 
when others => 
DS_DEBUG.UNDECLARED_EXCEPTION("DO_EVENT 66 65"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION_ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 


-- Exception Constraint translations. 
~~ Other constraint option translations. 


-- Unconditional output translations. 
it noe EXCEPTION HAS OCCURRED then 
begin 
DS_GAME_TIME CREATE _NEW_EVENTS 114 113.BUFFER.WRITE(LV_GAME TIME); 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW ("GAME TIME CREATE NEW EVENTS 114 113", 
"DO EVENT 66 65"); 
end; 
begin 
DS_GAME_TIME_DO EVENT _66 65.BUFFER.WRITE (LV GAME TIME) ; 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW ("GAME TIME DO EVENT 66 65", 
"DO_EVENT_ 66 65"); 
end; 
begin 
DS_GAME TIME _CREATE_USER_EVENT_69_68.BUFFER.WRITE(LV_GAME TIME); 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_ OVERFLOW ("GAME TIME CREATE USER_EVENT 69 68", 
"DO EVENT 66 65"); 
end; 
end if; 
20. Mot EXCEPTION HAS OCCURRED then 
begin 
DS_EVENT_Q CREATE USER EVENT 69 68.BUFFER.WRITE(LV_EVENT Q); 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW ("EVENT_Q CREATE _USER_EVENT 69 68", 
"DO EVENT 66 65"); 
end; 
begin 
DS_EVENT_Q CREATE _NEW_EVENTS_114 113.BUFFER.WRITE (LV EVENT Q); 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW ("EVENT_Q CREATE NEW EVENTS 114 113", 
"DO EVENT 66 65"); 
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end; 
begin 

DS EVENT Q DO EVENT 66 65.BUFFER.WRITE(LV_EVENT Q) ; 
exception 

when BUFFER OVERFLOW => 


DS _DEBUG.BUFFER_OVERFLOW ("EVENT_Q DO EVENT 66 65", 
"DO EVENT 66 65"); 


end; 
end if; 
if not EXCEPTION HAS OCCURRED then 
begin 
DS_ SIMULATION HISTORY POST PROCESSOR_6_5.BUFFER.WRITE ( 
LV_SIMULATION HISTORY) ; 


exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_OVERFLOW ("SIMULATION HISTORY _POST_PROCESSOR_6_5", 
"DO EVENT 66 65"); 


end; 
begin 
DS_SIMULATION_ HISTORY _JAAWS 12 11.BUFFER.WRITE ( 
LV_SIMULATION_ HISTORY) ; 


exception 

when BUFFER OVERFLOW => 

DS_DEBUG.BUFFER_OVERFLOW ("SIMULATION HISTORY _JAAWS 12 11", 
"DO _ EVENT 66 65"); 

end; 
begin 

DS_ SIMULATION _HISTORY_DO_ EVENT 66 65.BUFFER.WRITE ( 

LV_SIMULATION_ HISTORY) ; 


exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_ OVERFLOW ("SIMULATION HISTORY _DO_ EVENT 66_65", 
"DO EVENT 66 65"); 
end; 
end if; 


~- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
DS_DEBUG.UNHANDLED_ EXCEPTION ( 
"DO EVENT 66 65", 
PSDL_EXCEPTION' IMAGE (EXCEPTION _ID)); 
end if; 
end DO EVENT 66 65 DRIVER; 


procedure CREATE USER EVENT 69 68 DRIVER is 
LV GAME TIME : GAME TIME TYPE PKG.GAME TIME TYPE; 
LV USER INTERACTION : USER_INTERACTION TYPE PKG.USER_INTERACTION TYPE; 


LV EVENT Q : EVENT QUEUE TYPE PKG.EVENT QUEUE_TYPE; 


EXCEPTION HAS OCCURRED: BOOLEAN := FALSE; 
EXCEPTION ID: PSDL_EXCEPTION; 

begin 

-- Data trigger checks. 


-- Data stream reads. 
begin 
DS GAME TIME CREATE USER_EVENT 69 68.BUFFER.READ(LV_GAME TIME) ; 
exception 
when BUFFER UNDERFLOW => 
DS_DEBUG.BUFFER_UNDERFLOW ("GAME TIME CREATE USER_EVENT 69 68", 
"CREATE USER_EVENT 69 68"); 


end; 
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begin 
DS_EVENT_Q CREATE USER_EVENT_69_68.BUFFER.READ(LV_EVENT Q); 
exception 
when BUFFER UNDERFLOW => 
DS_DEBUG. BUFFER UNDERFLOW ("EVENT _Q CREATE USER_EVENT 69 68", 
"CREATE USER EVENT 69 68"); 
end; 
begin 
DS_USER_INTERACTION CREATE USER EVENT 69 68.BUFFER. READ ( 
LV USER _INTERACTION) ; 
exception 
when BUFFER _UNDERFLOW => 
DS_DEBUG. BUFFER_UNDERFLOW ("USER_INTERACTION CREATE USER_EVENT_69 68", 
"CREATE USER_EVENT_69 68"); 
end; 


-- Execution trigger condition check. 
if (LV_USER_INTERACTION = STOP_SIMULATION) then 
begin 
CREATE USER EVENT OO 
GAME TIME => LV GAME TIME, 
USER INTERACTION => LV_USER INTERACTION, 
EVENT _Q => LV_EVENT Q); 
exception 
when others => 
DS_DEBUG.UNDECLARED EXCEPTION ("CREATE USER_EVENT 69 68"); 
EXCEPTION HAS OCCURRED := true; 
EXCEPTION _ID := UNDECLARED ADA EXCEPTION; 
end; 
else return; 
end if; 


-~ Exception Constraint translations. 
-- Other constraint option translations. 


-~- Unconditional output translations. 
if not EXCEPTION HAS OCCURRED then 
begin 
DS_EVENT_Q CREATE USER_EVENT 69 68.BUFFER.WRITE(LV_ EVENT Q); 
exception 
when BUFFER OVERFLOW => 
DS_ DEBUG. BUFFER _OVERFLOW ("EVENT _Q CREATE USER EVENT 69 68", 
"CREATE _USER _EVENT_ 69 6B) 3 
end; 
begin 
DS_EVENT_Q CREATE NEW EVENTS 114 113.BUFFER.WRITE(LV_ EVENT Q); 
exception 
when BUFFER OVERFLOW => 
DS_DEBUG.BUFFER_ OVERFLOW ("EVENT Q CREATE NEW EVENTS 114 113", 
"CREATE USER_EVENT 69 68"); 
end; 
begin 
DS_EVENT_Q DO EVENT 66 65.BUFFER.WRITE(LV_EVENT QQ); 
exception 
when BUFFER OVERFLOW => 
DS DEBUG. BUFFER _OVERFLOW ("EVENT _Q DO EVENT 66 65", 
"CREATE USER_EVENT 69 68"); 
end; 
end if; 


-~- PSDL Exception handler. 
if EXCEPTION HAS OCCURRED then 
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DS DEBUG.UNHANDLED EXCEPTION ( 
"CREATE USER_EVENT 69 68", 
PSDL_ EXCEPTION' IMAGE (EXCEPTION _ID)); 
end if; 
end CREATE USER_EVENT 69 68 DRIVER; 
end WARRIOR 1 DRIVERS; 


4. | WARRIOR _1 EXCEPTIONS.ADS 


package WARRIOR 1 EXCEPTIONS is 

~~ PSDL exception type declaration 

type PSDL EXCEPTION is (UNDECLARED ADA EXCEPTION) ; 
end WARRIOR_1 EXCEPTIONS; 


3. WARRIOR 1 INSTANTIATIONS.ADS 


with EVENT TYPE PKG; use EVENT_TYPE_PKG; 
-- Generic type packages 
with 
SEQUENCE PKG; 
package WARRIOR _1 INSTANTIATIONS is 
-- Ada Generic package instantiations 


package EVENT TYPE SEQUENCE PKG is new 
SEQUENCE PKG(EVENT TYPE PTR); 


type EVENT TYPE SEQUENCE is new 
EVENT TYPE SEQUENCE PKG. SEQUENCE; 


end WARRIOR 1 INSTANTIATIONS; 


6. | WARRIOR 1 STREAMS.ADS 


-~ with/use clauses for atomic type packages 
with EVENT TYPE PKG; use EVENT TYPE_PKG; 
with EVENT QUEUE _ TYPE PKG; use EVENT QUEUE TYPE PKG; 
with STATISTICS _ TYPE _ PKG; use STATISTICS TYPE PKG; 
with SCENARIO _ TYPE_ PKG; use SCENARIO TYPE PKG; 
with STATISTICS REQUEST TYPE PKG; use STATISTICS REQUEST TYPE PKG; 
with REPLAY REQUEST TYPE PKG; use REPLAY REQUEST TYPE PKG; 
with USER_ INTERACTION TYPE PKG; use USER_INTERACTION TYPE PKG; 
with LOCATION _TYPE_PKG; use LOCATION TYPE PKG; 
with GAME TIME TYPE PKG; use GAME TIME TYPE PKG; 
-- with/use clauses for generated packages. 
with WARRIOR_1 EXCEPTIONS; use WARRIOR_1 EXCEPTIONS; 
with WARRIOR_1 INSTANTIATIONS; use WARRIOR_1 INSTANTIATIONS; 
-- with/use clauses for CAPS library packages. 
with PSDL STREAMS; use PSDL_ STREAMS; 
with PSDL_ STRING PKG; use PSDL_ STRING PKG; 

package WARRIOR _ 1 _ STREAMS is 
-- Local stream instantiations 


package DS USER_INTERACTION CREATE USER_EVENT 69 68 is new 
PSDL _ STREAMS. SAMPLED _ BUFFER (USER _ INTERACTION TYPE); 


package DS STATISTICS REQUEST POST PROCESSOR_6 5 is new 
PoDG. STREAMS . FIFO _BUFFER (STATISTICS _ REQUEST _TYPE) ; 


package DS STATISTICS DISPLAY ST_31_30 is new 
PSDL STREAMS.SAMPLED BUFFER(STATISTICS TYPE) ; 
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package 


DS_REPLAY DISPLAY RE 37 36 is new 


PSDL.- STREAMS . SAMPLED _ BUFFER (LOCATION __ TYPE) 


package 


DS_SIMULATION_HISTORY POST PROCESSOR 6 5 is new 


PSDL | STREAMS . SAMPLED _ BUFFER (EVENT _ i is @ 22 2 _ SEQUENCE) ; 


package 


DS_SIMULATION_HISTORY JAAWS 12 11 is new 


PSDG~ STREAMS . SAMPLED BUFFER (EVENT _ TYPE _ SEQUENCE) ; 


package 


DS_SIMULATION HISTORY DO EVENT 66 65 is new 


PSDL _ STREAMS . SAMPLED _ BUFFER (EVENT _ TYPE _ SEQUENCE) ; 


package 


DS_NEW_PLAN ENTERED EDIT PLAN 24 23 is new 


PSDL_ STREAMS. FIFO. _ BUFFER (BOOLEAN) ; 


-- State stream instantiations 


package 


package 


package 


package 


package 


package 


package 


package 


package 


package 


DS_REPLAY POSITION JAAWS 12 11 is new 
PSDL_ STREAMS .STATE _ VARIABLE (INTEGER, i 


DS_REPLAY REQUEST JAAWS 12 11 is new 

PSDL_STREAMS.STATE VARIABLE ( 
REPLAY REQUEST TYPE PKG.REPLAY REQUEST TYPE, 
REPLAY REQUEST TYPE PKG.OFF) ; 


DS_SCENARIO CREATE NEW EVENTS 114 113 is new 
PSDL_ STREAMS .STATE _ VARIABLE ( 
SCENARIO TYPE PKG.SCENARIO TYPE, 
SCENARIO TYPE PKG.EMPTY SCENARIO) ; 


DS SCENARIO EDIT PLAN 24 23 is new 
PSDL_STREAMS.STATE VARIABLE ( 
SCENARIO TYPE PKG.SCENARIO TYPE, 
SCENARIO TYPE PKG.EMPTY SCENARIO) ; 


DS NEW Y EDIT PLAN 24 23 is new 
PSDL_STREAMS.STATE VARIABLE(FLOAT, 0.0); 


DS NEW X EDIT PLAN 24 23 is new 
PSDL STREAMS.STATE VARIABLE (FLOAT, 0.0); 


DS_FIRST TIME INITIAL SCENARIO 40 39 is new 
PSDL_ STREAMS. STATE _ VARIABLE (BOOLEAN, true) ; 


DS_ GAME TIME CREATE NEW EVENTS 114 113 is new 
PSDL_ STREAMS.STATE _ VARIABLE ( 
GAME “TIME TYPE. PRGVGAME TIME TYPE, 
GAME TIME TYPE PKG.ZERQ) 7 


DS GAME TIME DO EVENT 66 65 is new 
PSDL_STREAMS.STATE VARIABLE ( 
GAME TIME TYPE PKG.GAME TIME TYPE, 
GAME TIME TYPE _PKG.2ZERO) ; 


DS_ GAME TIME CREATE USER EVENT 69 68 is new 
PSDL_ STREAMS .STATE _ VARIABLE ( 
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GAME TIME TYPE PKG.GAME TIME TYPE, 
GAME TIME TYPE PKG. ZERO) ; 


package DS EVENT Q CREATE USER EVENT 69 68 is new 
PSDL_ STREAMS .STATE VARIABLE ( 
EVENT QUEUE TYPE PKG.EVENT QUEUE TYPE, 
EVENT. QUEUE TYPE PRG.EMPTY); 


package DS EVENT Q CREATE NEW EVENTS 114 113 is new 
PSDL STREAMS.STATE VARIABLE ( 
EVENT QUEUE TYPE PKG.EVENT QUEUE TYPE, 
EVENT QUEUE TYPE PKG.EMPTY) ; 


package DS EVENT Q DO EVENT 66 65 is new 
PSDL_STREAMS.STATE VARIABLE ( 
EVENT QUEUE TYPE PKG.EVENT QUEUE TYPE, 
EVENT QUEUE TYPB PKG.EMPTY) ; 


end WARRIOR_1_ STREAMS; 


7. WARRIOR _1 TIMERS.ADS 


with PSDL TIMERS; 
package WARRIOR 1 TIMERS is 
-- Timer instantiations 
end WARRIOR 1 TIMERS; 


8. WARRIOR_1_ DYNAMIC _SCHEDULERS.ADS 


package warrior _1 DYNAMIC SCHEDULERS is 
procedure START _ DYNAMIC _ SCHEDULE; 
procedure STOP _ DYNAMIC SCHEDULE; 

end warrior 1 DYNAMIC SCHEDULERS; 


9. | WARRIOR_1 DYNAMIC _SCHEDULERS.ADB 


with warrior 1 DRIVERS; use Warrior _ 1 DRIVERS; 
with PRIORITY _DEFINITIONS; use PRIORITY DEFINITIONS; 
package body warrior 1 DYNAMIC SCHEDULERS is 


task type DYNAMIC SCHEDULE TYPE is 
pragma priority (DYNAMIC _ SCHEDULE PRIORITY) ; 
entry START; 
end DYNAMIC SCHEDULE TYPE; 
for DYNAMIC _ SCHEDULE _TYPE! STORAGE SIZE use 100 000; 
DYNAMIC SCHEDULE : DYNAMIC SCHEDULE TYPE; 


done : boolean := false; 
procedure STOP DYNAMIC SCHEDULE is 
begin 

done := true; 


end STOP DYNAMIC SCHEDULE; 


task body DYNAMIC SCHEDULE TYPE is 
begin 
accept START; 
loop 
enter new plan _75_ 74 DRIVER; 
exit when done; 


get_y 68 67 DRIVER; 
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exit when done; 


get_x_ 65 64 DRIVER; 
exit when done; 


get_re 30 29 DRIVER; 
exit when done; 


get_st_2/ 26 DRIVER; 
exit when done; 


get user in .zil.20 DRIVER; 
exit when done; 


initial scenario 40 39 DRIVER; 
exit when done; 


create new_events_114 113 DRIVER; 
exit when done; 


edit plan_24 23 DRIVER; 
exit when done; 


create user _ event 69 68 DRIVER; 
exit when done; 


jaaws_12 11 DRIVER; 
exit when done; 


post processor 6 5 DRIVER; 
exit when done; 


display re 37 36 DRIVER; 
exit when done; 


display st_31 30 DRIVER; 
exit when done; 


end loop; 
end DYNAMIC SCHEDULE TYPE; 


procedure START DYNAMIC SCHEDULE is 
begin 

DYNAMIC SCHEDULE.START; 
end START DYNAMIC SCHEDULE; 


end warrior 1 DYNAMIC SCHEDULERS; 


10. WARRIOR 1 STATIC _SCHEDULERS.ADS 


package warrior 1 STATIC_SCHEDULERS is 
procedure START STATIC SCHEDULE; 
procedure STOP STATIC SCHEDULE; 

end warrior 1 STATIC SCHEDULERS; 
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11. WARRIOR 1 STATIC _SCHEDULERS.ADB 


with warrior 1 DRIVERS; use warrior_1 DRIVERS; 

with PRIORITY DEFINITIONS; use PRIORITY DEFINITIONS; 
with PSDL_ TIMERS; use PSDL_ TIMERS; 

with TEXT IO; use TEXT_IO; 

package body warrior 1 STATIC: SCHEDULERS is 


task type STATIC SCHEDULE TYPE is 
pragma priority (STATIC SCHEDULE PRIORITY) ; 
entry START; 
end STATIC SCHEDULE TYPE; 
for STATIC _SCHEDULE TYPE'STORAGE SIZE use 200_000; 
STATIC SCHEDULE : STATIC SCHEDULE TYPE; 


done : boolean := false; 
procedure STOP STATIC SCHEDULE is 
begin 

done := true; 


end STOP_STATIC_SCHEDULE; 


task body STATIC SCHEDULE TYPE is 
PERIOD : duration; 
gui_event_monitor 18 17 START_TIME1 : duration; 
gui_event “monitor __ 18 Be, _ STOP _TIME1 : duration; 
do event _ 66_ 65 _START_ ~TIME2 : duration; 
do_ event_ 66_ 65_ “STOP TIME2 : duration; 
Gua event _monitor_ 18 17 START TIME3 : duration; 
gui_event “monitor ie. Siig: _STOP_ TIME3 : duration; 
gui_event _monitor_ 18 17 _ START _TIME4 : duration; 
gui_event _monitor_ 2:2 17 _STOP_ TIME4 : duration; 
gui_event “monitor 18 17 _ START _TIMES5 : duration; 
gui_event monitor 18 17 STOP TIMES : duration; 
do event 66 65 START TIME6 : duration; 
do event_66 65 STOP _TIME6 : duration; 
gui_event_monitor 18 17 START_TIME7 : duration; 
gui_event_monitor_18 17 STOP_TIME7 : duration; 
gui_event_monitor_18 17 START TIME8 : duration; 
gui_event_monitor_18 17 _STOP_TIME8 : duration; 
gui_event_monitor_18 17 START _TIME9 : duration; 
gui_event “monitor 18 Li _STOP_ TIMES : duration; 
do_event_ 66_ 65: START | ~TIME10 : duration; 
do_ event _ 66, 65 “STOP. TIME10 : duration; ‘ 
gui_ event _monitor_ Te. 17 START TIMB11 : duration; 
gui_event _monitor_ ae LF _STOP_ TIME11 : duration; 
gui_event _monitor_ 18 “17 _START_ TIME12 : duration; 
gui_event _monitor_ 18 17 _STOP_ TIME12 : duration; 
gui_event _monitor_ Pale. By, _ START _TIME13 : duration; 
gui_event “monitor _ 18 _17 _ STOP TIME13 > duration; 
schedule_ timer : TIMER := NEW TIMER; 
begin 
accept START; 
PERIOD := TARGET TO _ HOST (duration ( 3. OOOQOOE+00) ); 
gui_event _monitor_ 18_ se _START _TIME1 := TARGET TO HOST ( 
duration( 0.000Q0E+00) }; 
gui_event_monitor 18 17 STOP_TIME1 := TARGET _TO_HOST ( 
duration( 5.00000E-02) ); 
do event _66 65 START TIME2 := TARGET _TO_HOST(duration( 5.00000E-02) ); 
do_ event _ 66 65_ STOP | TIME2 := TARGET _ TO HOST (duration ( 1.50000E-01)); 
gua. 2 event _monitor_ 18 17 START _TIME3 © = TARGET TO HOST ( 
duration( 3.0QQ0QQ0E-01) ) 
gui_event_monitor 18 17 STOP_TIME3 := TARGET _TO_HOST ( 
duration( 3.50000E-01)); 
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gui_event_monitor_ 18 17 START TIME4 


gui_event_monitor_18 17 STOP TIME4 


gui_event_monitor_18 17 START TIMES 


gui.event monitor 18 17 STOP TIMES 


do_event_66 65 START TIME6 
do_ event _ 66_ 65 TOP _TIME6 TARGE 
gui_ event _monitor_ 18 _i7 -START TIME 


gui_event_monitor 18 17 STOP TIME7 
gui_event_monitor_18 17 START TIME 
gui_event_monitor 18 17 STOP TIME8 
gui_event_monitor 18 17 START TIME 


gui_event_monitor 18 17 STOP TIME9 


do_event_66 65 START _TIME10 
do event _ _66_ 65_ STOP _TIME1O 
Gul event _monitor_ 18 _17_START TIME 


— 


gui_event_ monitor 18 17 STOP TIME1 
gui_event_monitor_18 17 START TIME 
gui_event_monitor_18 17 STOP TIME1 
gui_event_monitor_18 17 START TIME 
gui_event_monitor 18 17 STOP TIME1 


START (schedule timer); 
loop 


TARGET TO HOST (duration ( 
TARGET TO _HOST (duration ( 


TARGET_TO_HOST ( 
duration( 6.00000E-01)); 
:= TARGET TO HOST ( 
duration( 6.50000E-01)); 
TARGET TO_HOST ( 
duration( 9.00000E-01)); 
TARGET TO HOST ( 
duration( 9.50000E-01)); 


TARGET TO HOST (duration( 1.05000E+00) ); 


T 70 ; HOST. (duration ( 1lsls000E+00)) 7 
7 := TARGET TO HOST ( 
duration( 1.20000E+00) ); 
:= TARGET TO HOST ( 
duration( 1.25000E+00)); 
TARGET TO HOST ( 
duration( 1.50000E+00)); 
TARGET TO HOST ( 
Guration( 1.55000E+00)); 
TARGET TO _HOST ( 
duration( 1.80000E+00)); 
TARGET TO HOST ( 
Guration( 1.85000E+00)}); 
2.05000E+00) ); 
2.15000E+00)); 


8 


It 


9 


11 := TARGET TO HOST \( 

duration( 2.15000E+00)); 
1 := TARGET _TO_HOST ( 

duration ( 2.Z20000E+00) ); 
12 := TARGET TO HOST ( 

duration( 2.40000E+00)); 
2 := TARGET TO HOST ( 

duration( 2.45000E+00)); 
13 := TARGET TO HOST ( 

duration( 2.70000E+00)); 
3° ?=" TARGET -TO- HOST ¢ 


duration( 2.75000E+00)); 


delay (gui_event_monitor 18 17 START TIME] - 
HOST _DURATION (schedule timer)); 


gui_event _monitor_ 18 17 DRIVER; 
ae HOST DURATION (schedule timer) 


> 


gui_event_monitor 18 17 STOP _TIME1 then 
PUT LINE("timing error from operator Gul. event _monitor_ LB dd") 3 


SUBTRACT _ HOST _ TIME FROM _ALL TIMERS (HOST _ DURATION (schedule | _timer) 


end if; 
exit when done; 


delay (do_event_66_65_ START TIME2 
do event _66_ 65. _DRIVER; 
if, HOST _DURATION (schedule_ timer) 


gui_event monitor 18 17 STOP TIME1); 


~ HOST DURATION (schedule timer) ); 


> do event. 66_ 65 STOP TIME 2 then 


PUT _LINE ("timing error from operator do_ event_ 66_ 65"); 


SUBTRACT _HOST_TIME FROM ALL TIMERS (HOST DURATION (schedule timer) 


end if; 
exit when done; 


do_event_66 65 STOP TIMEZ2); 


delay (gui_event_monitor_ 18 17 START TIME3 - 


gui_event_monitor_18 17 DRIVER; 
if HOST _DURATION (schedule_ timer} 


HOST _ DURATION (schedule _timer)); 


> 
gui.évent monitor 18 17 STOP TIME3 then 


106 








PUT LINE (“timing error from operator gui_event_monitor_18 17"); 
SUBTRACT HOST TIME FROM ALL _TIMERS (HOST_DURATION (schedule timer) = 
gui_event_monitor 18 17 STOP_TIME3); 
end if; 
exit when done; 


delay(gui_event_monitor 18 17 START TIME4 - 
HOST DURATION (schedule timer) ); 
gui_event_monitor_18 17 DRIVER; 
if HOST DURATION (schedule _timer) > 
gui_event_monitor 18 17 STOP TIME4 then 
PUT_LINE("timing error from operator gui_event _monitor_ 18 eg 
SUBTRACT HOST TIME FROM ALL TIMERS (HOST | DURATION (schedule _ cimer) += 
gui_event monitor 18 17 STOP TIME4); 
end if; 
exit when done; 


delay(gui_event_monitor_18 17 START TIMES - 
HOST DURATION (schedule timer)); 
gui_event_monitor 18 17 DRIVER; 
1£ HOST _DURATION (schedule timer) > 
gui_event_monitor_18 17 STOP TIMES then 
PUT LINE("timing error from operator gui_event _monitor_ 18 hy") 3 
SUBTRACT HOST TIME FROM ALL TIMERS (HOST _DURATION (schedule _ timer) - 
gui_event monitor 18 17 STOP TIMES) ; 
end if; 
exit when done; 


delay(do_ event_66_ 65 START _TIME6 - HOST DURATION (schedule timer) ); 
do_event 66 65 DRIVER; 
ve HOST DURATION (schedule timer) > do event 66 65 STOP _TIME6 then 
PUT _LINE("“timing error from operator do_event_66 65"); 
SUBTRACT _HOST_ TIME FROM ALL TIMERS (HOST DURATION (schedule timer) - 
do_event_ 66 65 STOP TIME6); 
end if; 
exit when done; 


delay(gui_event_monitor_18 17 START _TIME7 - 
HOST DURATION (schedule timer) ); 
gui_event_monitor_18 17 DRIVER; 
if HOST _DURATION (schedule _timer) > 
gui_event_monitor 18 17 _STOP _TIME? then 
PUT LINE ("timing error from operator gui_event monitor 18 17"); 
SUBTRACT_HOST_ TIME FROM _ALL TIMERS (HOST DURATION(schedule timer) - 
gui_event_monitor 18 17 STOP TIME7); 
end if; 
exit when done; 


delay(gui_event_monitor 18 17 START TIMES - 
HOST _ DURATION (schedule timer) ); 
gui_event_monitor_18 17 DRIVER; 
if HOST DURATION (schedule timer) > 
gui_event_monitor 18 17 STOP_TIME8 then 
PUT LINE ("timing error from operator gui_event _monitor_ 18 ey 
SUBTRACT HOST TIME FROM ALL TIMERS (HOST_ DURATION (schedule _ timer) - 
gui_event monitor 18 17 STOP TIMES) ; 
end if; 
exit when done; 


delay (gui_event_monitor_18 17 START TIMES - 

HOST DURATION (schedule timer) ); 
gui_event monitor _18 17 DRIVER; 
if HOST _DURATION (schedule_ timer) > 
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gui_event_monitor 18 17 STOP TIMES then 
PUT LINE("timing error from operator gui_event _monitor_ 18 Le" ye 
SUBTRACT _ HOST_TIME FROM_ALL TIMERS (HOST_ DURATION (schedule_ timer) - 
gui_event_monitor 18 17 _ STOP TEMES )-3 
end if; 
exit when done; 


delay(do_event_66 65 START _TIME10 - HOST _DURATION(schedule timer) ); 
do _event_66_ 65_ DRIVER; 
4£ HOST _ DURATION (schedule _timer) > do event _66 65 STOP TIME10 then 
PUT LINE("timing error from operator do_ event_ 66 65"); 
SUBTRACT HOST TIME FROM ALL _ TIMERS (HOST_ DURATION (schedule Eimer) = 
do event 66 65 STOP _TIME10) ; 
end if; 
exit when done; 


delay(gui event monitor.18 17 START TIME = 
HOST DURATION (schedule timer) ); 
gui_event_monitor_18 17 DRIVER; 
if HOST DURATION(schedule timer) > 
gui_event_monitor 18 17 STOP TIME11 then 
PUT_LINE("timing error from operator gui_ event _monitor_ bs me Ge ae 
SUBTRACT HOST TIME FROM _ALL TIMERS (HOST_ DURATION (schedule _ “timer) - 
gui_event_monitor 18 17 _STOP _TIME11); 
end if; 
exit when done; 


delay(gui_event_monitor 18 17 START TIME12 - 
HOST DURATION (schedule timer)); 
gui_event_monitor_ 18 17 DRIVER; 
1f HOST DURATION (schedule timer) > 
gui_event_monitor 18 17 STOP TIME12 then 
PUT _LINE("Ciming error Lom operator gui: event _monitor_ os ae a 
SUBTRACT HOST TIME FROM ALL TIMERS (HOST _ DURATION (schedule _ timer) - 
gul_event_monitor 18 17 _STOP _TIME12) ; 
end: 12; 
exit when done; 


delay(gui_event_monitor_ 18 17 START TIME13 - 
HOST DURATION (schedule timer) ); 
gui_event_monitor_18 17 DRIVER; 
if HOST DURATION (schedule timer) > 
gui_event_monitor_18.17 STOP _TIME13 then 
PUT LINE (“timing error from operator gui: event _monitor_ ge Nee ae 
SUBTRACT HOST TIME FROM ALL TIMERS (HOST DURATION (schedule timer) - 
gui_event_monitor 18 17 STOP_TIME13); 
end if; 
exit when done; 


delay(PERIOD - HOST DURATION (schedule timer) ); 
RESET (schedule timer); 
end loop; 
end STATIC SCHEDULE TYPE; 


procedure START STATIC SCHEDULE is 
begin 

STATIC SCHEDULE. START; 
end START STATIC SCHEDULE; 


end warrior 1 STATIC _SCHEDULERS; 


12. WARRIOR EVENT MONITOR TASK PKG.ADS 
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-- The wrapper task to provide mutual exclusion 
-- for calls from the prototype to TAE. 


with PRIORITY DEFINITIONS; use PRIORITY DEFINITIONS; 
with statistics type pkg; use statistics_type pkg; 
with location type pkg; use location_type_ pkg; 
. package warrior_event_monitor task pkg is 
task warrior event_monitor task is 
pragma priority (BUFFER PRIORITY); 
entry event _monitor_entry; 
entry display st_31_entry(statistics: statistics_type); 
entry display re 37 entry(replay: location_type) ; 
entry end_task; 
end warrior _event_monitor_task; 
end warrior event_monitor task_pkg; 


13. WARRIOR EVENT _MONITOR_TASK_PKG.ADB 


-- The wrapper task to provide mutual exclusion 
-- for calls from the prototype to TAE. 


with generated tae event _monitor pkg; 
with panel gui_3; 

with text_io; . 

package body warrior event_monitor_task pkg is 
task body warrior event_monitor_task is 


done : boolean := false; 
begin 
panel gui_3.initialize gui; 
Loop 
select 


accept event_monitor entry do 
if not done then 
generated tae event _monitor_pkg.generated_tae_event_monitor; 
end if; 
end event_monitor_ entry; 
or 
accept display st_3l_entry(statistics: statistics_type) do 
if not done then 
panel gui_3.display st_3l(statistics); 
end if; 
end display st_3l entry; 
or / 
accept display re 37 entry(replay: location_type) do 
if not done then 
panel gui_3.display re 37 (replay); 
end if; 
end display re 37 entry; 
Or 
accept end_task do 
raise Program Error; 
end end_task; 
end select; 
end loop; 


end warrior event_monitor task; 
end warrior event monitor task_pkg; 
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14. CREATE NEW_EVENTS 114 PKG.ADS 


with game_time_type pkd; use game time type pkg; 
with event_queue type pkg; use event queue_type_ pkg; 
with scenario type _ pkg; use scenario type pkg; 


package create _new_events_ 114 pkg is 


procedure create new events 114( game _time: in game_time_type; 
event q: in out event queue type; 
scenario: in scenario type ); 


end create new_events_ 114 pkg; 


15. CREATE NEW EVENTS 114 PKG.ADB 


with simulation _object_Pkg; USE Simulation Object_Pkq; 
with event_type pkg; USE event type pkg; 

with event type pkg.move_ pkg; use event _type pkg.move_pkg; 
with text_io; . 


package body create new_events 114 pkg is 


procedure create new events 114( game time: in game time type; 
event_qd: in out event_queue type; 
scenario: in scenario type ) is 
Event >: Event _ Type Ptr; 


Object Ptr & Simuletszon Object Ptr; 


begin -- 
Object Ptr := Get Unit ( Scenario ); -- Just one unit in this version 
if Can_move (Object_Ptr.all) and -- Just one’ kind of initial event 
not Get_Is Scheduled (Object_Ptr.all) 
then 


-- Since this is currently the only type of event, move 

Event := event_type pkg.move_pkg.Construct_Event (Object_Ptr, 
' Game Time );. 

Schedule Event( Event, Event_Q ); 

set Is Scheduled(Object Ptr all, true); 

end if; 
end create new_events 114; 
end create new events 114 pkg; 


16. CREATE _USER_EVENT 69 PKG.ADS 


with game time _type_ pkg; use game_time_type pkqd; 
with event queue type pkg; use event queue type pkg; 
with user _interaction_type_ pkg; use user_interaction_type pkg; 


package create_user event _69 pkg is 


procedure create user event 69( game _time: in game time type; 
event_q: in out event queue type; 
USGr anteraction:.1n user interaction _type ); 


end create user event_69 pkg; 


17. CREATE USER EVENT 69 PKG.ADB 


WITH Simulation Object Pkg; USE Simulation_Object_Pkg; 
WITH Event Type Pkg; USE Event Type_ Pkg; 
with event type pkg.end_sim_pkg; use event_type_ pkg.end_sim_pkg; 


package body create user event 69 pkg is 


110 





procedure create user event_69( game_time: in game time type; 
event gq: in out event _queue_ type; 
user interaction: in user interaction type ) is 


Event : Event Type Ptr; 
Object Ptr : Simulation_Object_Ptr := NULL; 


begin -- 
if User Interaction = stop_simulation then 
-- Only one kind of user interaction in this version. 
Event := event type pkg.end_sim_pkg.Construct_Event( Object_Ptr, 
Game Time ); 
Schedule Event( Event, event_q ); 
end if; 


end create user event 69; 
end create user _event_69 pkg; 


18. DELIMITER_PKG.ADS 


package delimiter pkg is 
type delimiter array is array (character) of boolean; 
function initialize delimiter array return delimiter_array; 
end delimiter pkg; 


19. DELIMITER PKG.ADB 


package body delimiter _pkg is 
function initialize delimiter array return delimiter array is 
begin 
return (' ' | ascii.ht | ascii.cr | ascii.1lf => true, others => false); 
end initialize delimiter_array; 
end delimiter pkg; 


20. DISPLAY RE 37 PKG.ADS 


with location_type pkg; use location_type pkg; 
package display re 37 pkg is 

procedure display re 37(replay: location_type); 
end display re 37 _pkg; 


~ 


21. DISPLAY RE 37 PKG.ADB 


with warrior event_monitor task_pkg; 
use warrior _event_monitor task pkg; 
package body display re 37 pkg is 
procedure display re 37(replay: location_type) is 
begin 
warrior event _monitor task.display re 37 entry(replay); 
end display re_ 37; 
end display re_ 37 _pkg; 


22. DISPLAY ST 31_PKG.ADS 


with statistics type pkg; use statistics type pkg; 
package display st 31 pkg is 

procedure display st_3l(statistics: statistics type); 
end display st_31_pkg; 


23. DISPLAY ST_31_PKG.ADB 
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with warrior _event_monitor task_pkg; 
use warrior _event_monitor_ task pkg; 
package body display st 31 pkg is 
procedure display st_3l(statistics: statistics type) is 
begin 
warrior _event_monitor task.display st_31_entry(statistics) ; 
end. display st. 31; 
end display st_31_pkg; 


24. DO EVENT 66 PKG.ADS 


with game_time type pkg; use game time type pkg; 

with event queue type pkg; use event_queue type pkg; 
with warrior 1] instantiations; use warrior_1 instantiations; 
with warrior 1] exceptions; use warrior 1 exceptions; 


package do_event_66 pkg is 


procedure do_event_66( game_time: in out game_time_ type; 
Simulation_history: in out event type sequence; 
event_q: in out event queue type ); 
end do_event_66 pkg; 


25. DO EVENT _66_PKG.ADB 


with simulation_object_pkg; use simulation_object_pkg; 
with event_type pkg; use event type pkg; 
with event_type pkg.move_pkg; use event_type pkg.move_pkg; 


with event_type_pkg.end_sim_pkg; use event_type pkg.end_sim_pkg; 


package body do event _66 pkg is 


procedure do_event_66( game_time: in out game_time type; 
Simulation history: in out event type sequence; 
event_q: in out event queue type ) is 


Next_Time : Game_Time Type; 
Event Event. Type. Ptr; 
begin -- 
Get_Next_Event( Event, event _q ); -- get event from event queue 
Next Time := Execute Event ( Event.ALL ); -- execute event and get next 
~- execution time 
Game Time := Get_Event_Time( Event.ALL ); -- update game time to time of 
<= event 


Simulation History := Add( Copy Event( Event.ALL ), Simulation History ); 
if Next _Time /= NEVER then 

Set Event Time( Event.ALL, Next _Time ); 

Schedule Event( Event, event_q ); 
end if; 


end do_event_66; 
end do event _ 66 pkg; 


26. EDIT PLAN 24 PKG.ADS 


with scenario type pkg; use scenario type pkg; 
with warrior 1 instantiations; use warrior 1 instantiations; 
with warrior 1 exceptions; use warrior 1 exceptions; 


package edit plan 24 pkg is 
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procedure edit plan 24( new_plan entered: in boolean; 
new y: in float; 
new _x: in float; 
scenario: in out scenario type ); 
end edit plan 24 pkg; 


27. EDIT PLAN 24 PKG.ADB 


with Location Type pkg; use Location Type _ pkg; 
with Simulation Object _Pkg; use Simulation_Object_Pkg; 


package body edit _plan_24 pkg is 


procedure edit plan _24( new plan entered: in boolean; 
new _y: in float; 
new xX: in float; 
scenario: in out scenario type ) is 


unit: Simulation Object_Ptr; 
destination: Location_Type; 


begin -- 
destination := To Location(new_x, new _y); 
unit := get_unit (scenario); 


Set _Destination(unit.all, destination) ; 


end edit plan 24; 
end edit plan 24 pkg; 


28. ENTER _NEW_PLAN_75_PKG.ADS 


package enter new_plan_75 pkg is 
procedure enter new plan _75(new_plan_ entered : out boolean) 
procedure record_input (new_plan_entered : in boolean); 
function has new _input return boolean; 
~- True iff a user input has arrived 
-- since the last time this bubble was executed. 
end enter new plan _75_ pkg; 


29. ENTER NEW _PLAN_75 PKG.ADB 


with psdl_ streams; use psdl_ streams; 
package body enter new _plan_75 pkg is 
package new_plan_ entered buffer is new 
sampled buffer (boolean); 
use new_plan_entered_buffer; 


procedure enter new_plan_75(new_plan_entered : out boolean) 
begin 
-- Get the value from new_plan_entered_buffer 
buffer.read(new_plan_ entered); 
end enter new plan 75; 


procedure record input (new _plan_entered : in boolean) is 
begin 
-- Save the value in new_plan_entered_buffer 
buffer.write(new_plan entered); 
end record input; 


Function has new_input return boolean is 
begin 
-~- Check status of new _plan_entered buffer 
return new data; 
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end has new input; 


end enter new plan 75 pkg; 


30. EVENT _QUEUE_TYPE_PKG.ADS 


WITH sorted_list_pkg; 
WITH Event Type Pkg; use Event Type Pkg; 


package Event _Queue Type Pkg is 
type Event Queue Type is private; 


PROCEDURE Schedule Event (Event ; IN Event. Type. Ptr; 
Event _Q : IN OUT Event Queue Type); 


PROCEDURE Get_Next_Event (Event > out Event Type Ptr; 
Event Q : IN OUT Event Queue Type); 


FUNCTION Is Empty(Event Q : IN Event Queue Type) RETURN BOOLEAN; 
FUNCTION Empty RETURN Event Queue Type; 


private 
package e q pkg is new sorted_list_pkg(element_type => Event Type Ptr, 
wet => ce Sa : 
type Event Queue Type is new e q pkg.sorted list; 


end Event Queue Type Pkg; 


31. EVENT _QUEUE_TYPE_PKG.ADB 


with event_type pkg.move_pkg; use event type pkg.move_ pkg; 
with event_type pkg.end sim pkg; use event _type pkg.end_sim_pkg; 
with ada.text_io; 


package body Event Queue Type Pkg is 


PROCEDURE Schedule Event 
(Event : IN Event _ Type Ptr; 
Event © ¢ IN OUT Evént Oueue Type). is 
begin 
add(Event Q, Event); 
end Schedule Event; 


PROCEDURE Get_Next_Event 
(Event > out Event Type Ptr; 
Event _Q : IN OUT Event Queue Type) is 
begin 
get_smallest (Event_Q, Event); 
end Get _Next Event; 


FUNCTION Is Empty(Event_Q : IN Event Queue Type) RETURN BOOLEAN is 
begin 

return € 9g pkg.1s empty(e og -pkg.sorted. list(Event -O))7 
end Is Empty; 
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FUNCTION Empty RETURN Event Queue Type is 
begin 


return Event Queue Type(e_q pkg.empty); 


end Empty; 
end Event_Queue Type Pkg; 


32. 


EVENT TYPE _PKG.ADS 


mee ip meer inte eke eer ge cmc cc ce ee ee ee ee ee ee ee eee ee eee ee eee eee eee ee 


FileName: Event Type Pkg.ads 

AULHOL: Julian Williams 

Date: 10 October 1998 

ProOiece: Janus/Warrior Combat Simulation for CAPS 
Compiler: ObjectAda for Windows Ver. 7.1.1 (Professional) 


Description: This package describes basic functions and procedures 
involving event types in the Warrior Combat Simulation 
model. 


ms ee ere ee cere en ee ce er cree vert et ee cm cm wee ee re ce is ee ee ee ee ee ee ee ee ee eee ee re Oo 


WITH Simulation Object Pkg; USE Simulation_Object_Pkg; 
WITH Game Time Type Pkg; USE Game Time Type pkg; 


PACKAGE Event_Type Pkg IS 


TYPE Event Action Type IS ( MoveUpdateObj, EndSimulation ); 


TYPE Event Type IS ABSTRACT TAGGED PRIVATE; 
TYPE Event Type Ptr IS ACCESS ALL Event_Type'Class; 


ee oe ce cee ee eee ee es ee ee ee we ee ee ee ee ee ee ee ee eee ee ee eee eee ee ee eee ee se Se ees ee 


-~-| FUNCTION Get_Event Time 
-~~| Pre: An unexecuted event exsist. 
--| Post: Start time for the event is returned. 


mee ree wee we ee ee ee ee ee ee i as en ee ee ee ce ce ree ee ee ee ee ee ee i ee ee ee ee ee ee ee ee ee ee ee eee ee ee ee 


FUNCTION Get Event Time (Event: IN Event_Type'Class) 
RETURN Game_ Time Type; 


ee rte mis Res WO yy cms SAPD cme yc we ee Se i ee ee ee li ee ee ee ee a ooo 


meee ee i mee ee ce re eee ee ce em ee ce ee ree ee re ee ee ee ee ee ee ee ee ee eee eee eee ee een eS eee eee ee 


PROCEDURE Set Event _Time (Event: IN OUT Event_Type'Class; 
Time: IN Game_ Time Type); 


--| FUNCTION Get Object 
--| Pre: An event exist. 
-~-| Post: The object designated within the event is returned. 


men eee ee wee ee ee ee ee i ce re re ee eit te re ee ee ee Ee le ee ee ee ee eee ee ee ee ee Oe ee ee ee ee ee oo oe 


FUNCTION Get Object (Event: IN Event _Type'Class) 
RETURN Simulation_Object_Ptr; 


come reer ee ens ee ee ee ee i ee ee ee i ee ee ee ee ee ee ee es de ee ee ee es ee ee ee ee es ee ee ee ee ee ee eee eee ee eee ee eee ee 


-~-| FUNCTION Get Action 
-~-| Pre: An event exist. 
~-| Post: The action on the object in the event is returned. 


acces cae cms meee ee ec ee ee ee ee ee ee ee ee ee ee ee ee ee eee ee eae ee eS eee eee 
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FUNCTION Get_Action (Event: IN Event_Type'Class) 
RETURN Event Action Type; 


——— eS te er rm ii a ct ee ccm mmc we re ree me creme i it ii ieee re ies me eer ee ete ee ee ee is 


-~| FUNCTION "<" 
--| Pre: Two event types exist. 
--| Post: The least valued event is returned. 


——=-oeooae—ar—e oT rece rr re ec cr i we ee ee ee ee ee eee 


ST TS GED hither err, Sree rer: > SYED “SENG EEDEEeshikiytswsmeepree ep): meeps met ss cies ee, GD ins mie tee 


--| FUNCTION Execute Event 


=ar'|, Pres A move event has been extracted from the event queue 
~— | and needs to be executed. 
-~~| Post: Move event is executed and time executed is returned. 


——_— a rere rere mm rrr mmc eri me erm mm mm mm i ate mm tee lle mm mv MO meine mits airtime em GER see ep eer GD Geir, ey sem 


FUNCTION Execute Event (Event: IN Event Type) 
ETURN Game Time Type; 


ia tn cr tle rine i i er te A A i i 


-~| PROCEDURE Copy Event 


~~| Pre: An move event exist. 
--| Post: The move event is copied and a pointer to the copy is 
——| returned. : 


ry Aether eer: hearer ernie Achy mykiss seyret ee ee We GD 


FONCTION Copy Event (Event: IN Event_Type) 
RETURN bvenc Type. Ptr; 


PRIVATE 


END 


TYPE Event Type IS ABSTRACT TAGGED 
RECORD 
Action > Event Action. Type; ~- desired action 
~- to be performed 
Object_Ptr : Simulation Object Ptr := NULL; -- pointer to 
-=- simulation 
-- object 
Time : Game Time Type; -- time to start 
~- event action 
END RECORD; 


Event Type Pkg; 


EVENT _TYPE_PKG.ADB 


tthe cd recite ti l n a ren 


FileName: Event Type Pkg.adb 

Author: Julian Williams 

Date: 10 October 1998 

Project: Janus/Warrior Combat Simulation for CAPS 
Compiler: ObjectAda for Windows Ver. 7.1.1 (Professional) 


Description: This package describes basic functions and procedures 
involving event types in the Warrior Combat Simulation 
model. 


lteter ee el tiara ai eet tt ale Eee ee 


with ada.text_io; 
PACKAGE BODY Event Type Pkg IS 
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ee ee ee re es ee ce ee es a ec cre ee ee ii i ee ee vl ee ee ee ee ee ee ee ee ee ee 


--| FUNCTION Get Event_Time 
--| Pre: An unexecuted event exsist. 
--| Post: Start time for the event is returned. 
FUNCTION Get Event Time (Event: IN Event_Type'Class) 
RETURN Game Time Type IS 

BEGIN. == -Get Event. Tine 

RETURN Event.Time; 
END Get Event_Time; 


see pee mms meister cet eh elie ie ee Se ee ee ee ee ee ee ee eee ee eee ee eee ee eee ee eee 


— ee eee ee es ee ee ewe ee ee ee es ee ee es ee ee ee et re ee re ee ee ee ee ee ee ee ee re ee ee ee ee ee ee et ee ee oe 


PROCEDURE Set Event _Time (Event: IN OUT Event_Type'Class; 
Time: IN Game Time Type) IS 
BEGIN -- Set_Event_Time 
Event.Time := Time; 
END Set_Event_Time; 


mmm mre eves wrt cups mcm cme crs cect ees geeks crc eee cm i ce ce ee ee ee ee ee ee ee ee ee ee ee ee ee ie ee ee ee oe eee ee ee ee ee ee 


“=| FUNCTION Get. Obj ect 
--| Pre: An event exist. 
~-| Post: The object designated within the event is returned. 
FUNCTION Get Object (Event: IN Event_Type'Class) 
RETURN Simulation _Object_Ptr IS 

BEGIN -- Get_Object 

RETURN Event.Object_Ptr; 
END Get Object; 


eee td cee ems 40s ph iis Seem ifs teh A ee SG ee ee eee es ee ee ee eee ee ee eee eee ee 


--| FUNCTION Get Action 
--| Pre: An event exist. 
--| Post: The action on the object in the event is returned. 
FUNCTION Get Action (Event: IN Event_Type'Class) 
RETURN Event _Action_Type IS 

BEGIN -- Get_Action 

RETURN Event.Action; 
END Get Action; 
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--| FUNCTION "<" 

--| Pre: Two event types exist. 

~-| Post: The least valued event is returned. 

FUNCTION "<" (Left, Right: IN Event Type Ptr) RETURN Boolean IS 
Reply : Boolean; 

BEGIN -- "<" 
IF Left.ALL.Time < Right.ALL.Time THEN 
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Reply := True; 
ELSIF Left.ALL.Time > Right.ALL.Time THEN 
Reply := False; 
ELSE 
Reply := ( Left.ALL.Action < Right.ALL.Action ); 
END IE; 
RETURN Reply; 
END: <3 
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“=| FUNCTION Bxecutce Event 


=| (Pee. A move event has been extracted from the event queue 
--| and needs to be executed. 
--| Post: Move event is executed and time executed is returned. 


FUNCTION Execute Event (Event: IN Event_Type) 
RETURN Game Time Type IS 
begin -- 
ada.text_io.put_line("In the base execute event routine."); 
return 100; 
end execute event; 
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-~-| PROCEDURE Copy Event 


--| Pre: An move event exist. 
-=| Post: The move event is copied and a pointer to the copy is 
ied returned. 
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FUNCTION Copy Event (Event: IN Event_Type) RETURN Event_Type_ Ptr I5 
begin -- 

ada.text_io.put_line("In the base copy routine"); 

return nulls; 
end copy event, 


END Event_Type_ Pkg; 


34. 


EVENT TYPE _PKG-END_SIM_PKG.ADS 


FileName: Event_Type Pkg.End_Sim_Pkg.ads 

Author: Julian Williams 

Date: 10 October 1998 

Project: Janus/Warrior Combat Simulation for CAPS 
Compiler: ObjectAda for Windows Ver. 7.1.1 (Professional) 


Description: This package describes basic functions and procedures 
involving event types in the Warrior Combat Simulation model. 


PACKAGE Event _Type_Pkg.End_Sim_ Pkg IS 


TYPE End Sim_Event_Type IS NEW Event Type WITH PRIVATE; 


~-| FUNCTION Execute Event 


--| Pre: An end simulation event has been extracted from the event 
sar queue and needs to be executed. 
--| Post: End Simulation is executed and time executed is returned. 


ene cee ee wee ee i ee ee ete ee ee ee eee ee ae ie ee ee ee ee ewe ew ee ee ean ae ee ew awe ae wee ae ee eee ee ese ee Oe see i ee ee 


FUNCTION Execute Event (Event: IN End_Sim_Event_Type) RETURN 
Game Time Type; 
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--| PROCEDURE Construct_Event 
== | Pre: No event exist. 
=m] (POSt: A move event is constructed and the event is returned. 
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FUNCTION Construct_Event (Object Ptr: IN Simulation_Object_Ptr; 
Time: IN Game Time Type) 
RETURN Event Type Ptr; 
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~-| PROCEDURE Copy Event 
HS. ee. An event exist. 
== | POSst: The event is copied and the copy is returned. 
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FUNCTION Copy Event (Event: IN End Sim Event_Type) RETURN Event Type Ptr; 
PRIVATE 


TYPE End_Sim_Event_Type IS NEW Event_Type WITH NULL RECORD; 
END Event_Type Pkg.End_Sim_Pkg; 


35. EVENT TYPE _PKG-END SIM PKG.ADB 


--| FileName: Event Type Pkg.End Sim_Pkg.adb 

~~| Author: Julian Williams 

--| Date: 10 October 1998 

--| Project: Janus/Warrior Combat Simulation for CAPS 

--| Compiler: ObjectAda for Windows Ver. 7.1.1 (Professional) 


--| Description: This package describes basic functions and procedures 
involving 
== event types in the Warrior Combat Simulation model. 


meres mre ces ete ii heh yy ptr ips hide ahs ly rpm eps es es gts meee ee epee te alti tia ls ee ee ied ei ee ee ee ee i 


WITH Warrior 1 Static_Schedulers; USE Warrior_1 Static _Schedulers; 
WITH Warrior i _Dynamic_ Schedulers; USE Warrior i _Dynamic_ Schedulers; 
WITH Panel Gui 3; 

WITH warrior event_monitor task _pkg; 


PACKAGE BODY Event_Type Pkg.End Sim _Pkg IS 
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--| FUNCTION Execute Event 


--| Pre: An end simulation event has been extracted from the event 
--| queue and needs to be executed. 
--| Post: End simulation is executed and time executed is returned. 


i rr ttt te een en etree 


FUNCTION Execute Event (Event: IN End_Sim_Event_Type) 
RETURN Game Time Type IS 
Time : Game Time Type := Event.Time; 
BEGIN -- Execute Event 
Stop Static Schedule; 
stop. Dynamic Schedule; 
Panel Gui_3.End_Simulation; 
warrior event _monitor_ task kgs warrior event monitor task.end_task; 
RETURN Time; 
END Execute Event; 


err es ae ree ere revere cere pm ts eet te ee TY ee re em ree ee ere ee ee ei me ek ee ee ee ee ee ee ee a ee eee ee ee ee ee ee 


~~| PROCEDURE Construct Event 
~-| Pre: No event exist. 
--| Post: A move event is constructed and the event is returned. 
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FUNCTION Construct _Event (Object_Ptr: IN Simulation_Object_Ptr; 
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END 


Time: IN Game_Time_ Type) 
RETURN Event Type Ptr IS 
Event: Event Type PCr; 


BEGIN -- 
Event := NEW End_Sim_ Event Type' (Action => EndSimulation, 
Object. _ Ptr => Object Ptr, 
Time => Time); 


RETURN Event; 


END Construct Event; 


--| PROCEDURE Copy Event 

== |" Pres An event exist. 

~~| Post: The event is copied and the copy is returned. 

FUNCTION Copy Event (Event: IN End Sim Event Type) RETURN Event Type Ptr IS 
Copy: Event _Type Ptr; 

BEGIN -- Copy Event 
Copy := Construct_Event( Get Object( Event ), Get Event Time( Event )); 

RETURN Copy; 
END Copy Event; 


Event Type Pkg.End Sim Pkg; 


EVENT TYPE PKG-MOVE PKG.ADS 
FileName: Event_Type Pkg.Move Pkg.ads 
Author: Julian Williams 
Date: 10 October 1998 
Project: Janus/Warrior Combat Simulation for CAPS 
Compiler: .ObjectAda for Windows Ver. 7.1.1 (Professional) 


Description: This package describes basic functions and procedures 
involving event types in the Warrior Combat Simulation model. 


PACKAGE Event Type Pkg.Move_ Pkg IS 


TYPE Move Event Type IS NEW Event Type WITH PRIVATE; 


-~-| FUNCTION Execute Event 


--| Pre: A move event has been extracted from the event queue and needs 
=e | to be executed. 
--| Post: Move event is executed and time executed is returned. 


~-| PROCEDURE Construct_Event 
--| Pre: No event exist. 
--| Post: A move event is constructed and the event is returned. 
FUNCTION Construct Event (Object Ptr: IN Simulation _Object_Ptr; 
Time: IN Game Time Type) 
RETURN Event Type Ptr; 


--| PROCEDURE Copy Event 


==]. Pre: An move event exist. 
--| Post: The move event is copied and a pointer to the copy is 
Se | returned. 
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FUNCTION Copy Event (Event: IN Move _Event_Type) RETURN Event_Type_ Ptr; 


PRIVATE 
TYPE Move _Event_Type IS NEW Event_Type WITH NULL RECORD; 


END Event _Type Pkg.Move_Pkg; 


37. EVENT TYPE _PKG-MOVE_PKG.ADB 
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--| FileName: Event Type Pkg.Move_Pkg.adb 

== |. Author: Julian Williams 

--| Date: 10 October 1998 

--| Project: Janus/Warrior Combat Simulation for CAPS 

--| Compiler: ObjectAda for Windows Ver. 7.1.1 (Professional) 


--| Description: This package describes basic functions and procedures 
all involving event types in the Warrior Combat Simulation 
el model. 
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—-—| FUNCTION Execute Event 


== | -Pre' An move event has been extracted from the event queue 
= =| and needs to be executed. 
--| Post: Move event is executed and time executed is returned. 
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FUNCTION Execute Event (Event: IN Move _Event_Type) 
RETURN Game Time Type I5 
Time: Game Time Type; 
BEGIN. == Execute Event 
Time := Get Event _Time (Event); 
Move Update _Obj( Get_Object(Event).ALL, Time ); 
RETURN Time; 
END Execute Event, 


-=| -PROCEDURE "Construct. Event 


~-| Pre: No event exist. 
-~-| Post: A move event is ‘constructed and the event is returned. 
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FUNCTION Construct Event (Object_Ptr: IN Simulation_Object_Ptr; 
Time: IN Game_Time_ Type) 
RETURN Event_Type Ptr IS 
Event: Event_Type Ptr; 


BEGIN -- 
Event := NEW Move Event Type' (Action => MoveUpdateObj, 
Object Ptr => Object_Ptr, 
Time => Time); 


RETURN Event; 
END Construct_Event,; 
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--| PROCEDURE Copy Event 
=={: Pres An event exist. 
== POsts The event is copied and the copy is returned. 


—_—_—— oT eee a ee ee ee ee ee ee ee ee re eee ee ee ee es ie ee ee ee a es ee ee es 


FUNCTION Copy Event (Event: IN Move Event Type) 
RETURN Event Type Ptr IS 
Copy: Event Type Ptr; 7 7 
BEGIN -- Copy Event 
IF Get Object( Event ) /= NULL THEN 
Copy := Construct_Event( Copy Obj( Get Object (Event) .ALL ), 
Get_Event_Time( Event ) ); 


ELSE 
Copy := Construct_Event( NULL, Get_Event_Time(Event) ); 
BND: PE; 
RETURN Copy; 
END Copy Event; ; 


END Event_Type Pkg.Move_ Pkg; 


38. GAME TIME TYPE PKG.ADS 


package game _time_ type pkg is 
subtype game_time_type is integer range -1 .. integer'last; 


never: constant game time type := -1l; 
function zero return game_time type; 
end game_time_type pkg; 
39. GAME TIME TYPE PKG.ADB 
package body game_time type pkg is 
function zero return game_time type is 
begin 
return game_time_type(0); 


end zero; 
end game_time type pkg; 


40. _GENERATED_TAE EVENT MONITOR PKG.ADS 


with Interfaces.C; 
use Interfaces.C; 


with linker options pragma pkg; 
package generated_tae_event_monitor pkg is 
procedure generated_tae_ event monitor; 


pragma Import(C, generated _tae event monitor, 
“generated _tae event_monitor") ; 


end generated_tae event_monitor pkg; 


41. GET_RE 30 PKG.ADS 


with replay request_type pkg; use replay request type pkg; 

package get_re 30 pkg is 
procedure get_re 30(replay_request : out replay request type); 
procedure record_input (replay request : in replay request type); 


122 





function has new_input return boolean; 
-- True iff a user input has arrived 
-- since the last time this bubble was executed. 
end get re 30 pkg; 


42. GET RE 30 PKG.ADB 


with psdl streams; use psdl_streams; 
package body get_re 30 pkg is 
package replay request_buffer is new 
sampled buffer(replay request_type); 
use replay request_buffer; 


procedure get re 30(replay request : out replay request_type) is 
begin 
-- Get the value from replay request_buffer 
buffer.read(replay request); 
end get_re 30; 


procedure record input(replay request : in replay _request_type) is 
begin 
-~ Save the value in replay request_buffer 
buffer.write (replay request); 
end record input; 


function has new_input return boolean is 
begin 
-- Check status of replay _request_buffer 
return new data; 
end has new _input; 
end get_re 30 pkg; 


43. GET_ST_27 PKG.ADS 


with statistics request_type pkg; use statistics_request_type_pkg; 
package get_st_27 pkg is 
procedure get_st_27(statistics_ request : out Statistics request_type); 
procedure record input (statistics_request : in statistics_request_type); 
function has _new_input return boolean; 
-- True iff a user input has arrived 
-- since the last time this bubble was executed. 
end get _st_27 pkg; 


44, GET _ST 27 PKG.ADB 


with psdl streams; use psdl_ streams; 
package body get_st_27 pkg is 
package statistics request_buffer is new 
sampled buffer(statistics request_type); 
use statistics request_buffer; 


procedure get_st_27(statistics request : out statistics request_type) is 
begin 

~~ Get the value from statistics request_buffer 

buffer.read(statistics request); 
end get _st 27; 


procedure record input (statistics request : in statistics_request_type) is 
begin 

-- Save the value in statistics_request_buffer 

buffer.write (statistics request); 
end record input; 
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function has new_input return boolean is 
begin 
-- Check status of statistics request buffer 
return new data; 
end has new_input; 
end get_st_27/ pkg; 


45. GET_USER_IN 21 PKG.ADS 


with usér intéraction type pkg; use user interaction type: pko; 
package get_user_in_21 pkg is 
procedure get_user_ in 2i(user_interaction : out user_interaction_type) ; 
procedure record_input(user_interaction : in user_interaction_type) ; 
function has new_input return boolean; 
-- True iff a user input has arrived 
-- since the last time this bubble was executed. 
end get_user_ in 21 pkg; 


46. GET_USER_IN 21 PKG.ADB 


with psdl_ streams; use psdl_ streams; 
package body get_user in 21 pkg is 
package user interaction_buffer is new 
sampled buffer(user_interaction_type); 
use user interaction_buffer; 


procedure oet user in 21 (user interaction +. Out: User 2anteraction. type): is 
begin 

== Get ‘the value from user interaction butter 

buffer.read(user interaction) ; 
end get: user ian 2ily 


procedure: record. input (user anteraction + in user interaction type) 1s 
begin 
-- Save the value in user interaction buffer 
buffer.write (user interaction) ; 
end record input; 


function has new_input return boolean is 
begin 
-~~ Check status of user _ interaction buffer 
return new data; 
end has new input; 
end get_user_ in 21 pkg; 


47. GET _X_ 65 PKG.ADS 


package get_x 65 pkg is 
procedure get_x_65(new_x : out float); 
procedure record_input(new_x : in float); 
function has new_input return boolean; 
-- True iff a user input has arrived 
-- since the last time this bubble was executed. 


end get_x_65 pkg; 


48. GET_X_65 PKG.ADB 


with psdl_ streams; use psdl_streams; 
package body get_x_65 pkg is 
package new_x buffer is new 
sampled buffer(float) ; 
use new x buffer; 
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procedure get_x 65(new_x : out float) is 
begin 
== Get the value from new x buifer 
buffer.read(new x); 
end get _x 65; 


procedure record _input(new_x : in float) is 
begin 
-- Save the value in new_x buffer 
buffer.write (new _x)j; 
end record input; 


function has new input return boolean is 
begin 
-- Check status of new_x buffer 
return new_data; 
end has _ new input; 
end get_x_65_pkg; 


49. GET_Y 68 PKG.ADS 


package get_y 68 pkg is 
procedure get_y 68(new_y : out float); 
procedure record input (new_y : in float); 
function has new input return boolean; 
-- True iff a user input has arrived 
-- since the last time this bubble was executed. 
end get_y 68 pkg; 


50. GET_Y 68 PKG.ADB 


with psdl_ streams;.use psdli_streams; 
package body get_y 68 pkg is 
package new _y buffer is new 
sampled _buffer(float); 
use new _y buffer; 


procedure get_y 68(new_y : out float) is 
begin 
~~ Get the value from new_y buffer 
buffer.read(new_y); 
end get_y 68; 


procedure record input (new_y : in float) is 
begin 
-- Save the value in new_y buffer 
buffer.write (new_y); 
end record_input; 


function has new input return boolean is 
begin 
~~ Check status of new_y buffer 
return new data; 
end has new_input,; 
end get_y 68 pkg; 


51. GUIEVENT MONITOR _18 PKG.ADS 


package gui_event_monitor_18 pkg is 
procedure gui_event_monitor_ 18; 
end gui_event_monitor 18 pkg; 


52. GUI_EVENT_ MONITOR _18 PKG.ADB 
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with warrior _event_monitor task pkg; 
use warrior _event_monitor task pkg; 
package body gui_event_monitor 18 pkg is 
procedure gui event monitor 16 is 
begin 
warrior event_monitor task.event_monitor entry; 
end gui_event_monitor 18; 
end gui_event_monitor 18 pkg; 


53. INITIAL SCENARIO 40 PKG.ADS 


with scenario type_pkg; use scenario type pkg; 
package initial scenario 40 pkg is 
procedure initial scenario 40(scenario : out scenario type; 
first. time + in-out boolean); 
end initial scenario 40 pkg; 


54. INITIAL SCENARIO 40 PKG.ADB 


package body initial scenario _40 pkg is 
procedure initial scenario _40(scenario : out scenario_type:; 
first time : in out boolean) is 


begin 
initialize scenario(scenario); 
first _time := false; 


end initial scenario 40; 
end initial scenario_40 pkg; 


55. JAAWS 12 PKG.ADS 


with replay request_type pkg; use replay request_type pkg; 
with location_type pkg; use location type pkg; 

with warrior 1] instantiations; use warrior 1 instantiations; 
with warrior 1 exceptions; use warrior 1 exceptions; 


package jaaws 12 pkg is 


procedure jaaws_ 12 ( 
simulation history: in event _type sequence; 
replay request: in out replay request_type; 
replay position: in out integer; 
replay: out location type ); 
end jaaws_ 12 pkg; 


56. JAAWS_12_ PKG.ADB 


with simulation_object_pkg; use simulation_object_pkg; 
with event type pkg; use event_type pkg; 


package body jaaws_ 12 pkg is 


procedure jaaws_ 12 ( 
simulation history: in event_type sequence; 
replay request: in out replay request_type; 
replay position: in out integer; 
replay: out location_type ) is 
-- Precondition: not is_empty(simulation history) 
-- Precondition: 1 <= replay position <= length(simulation_history) 
i: integer; : 
e: event type ptr; 
Oo: simulation_object_ptr; 
begin 
-- replay position = previous snapshot location or 1 
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~- Set replay to the previous snapshot. 


e := fetch(simulation_history, replay position); 
if get_action(e.all) = MoveUpdateObj then 
Oo := get _object(e.all); 
replay := get_location(o.all); 
else -- the previous position is not at a move event 
replay := origin; 
end if; 


-~- Set i to the tentative new replay position 


if replay request = on then -- reset to the beginning 
replay request := off; 
i 2 
~~ e := fetch(simulation_history, i); 
-- 0 := get _object(e.all); 
~- replay := get_location(o.all); 
-- replay position := i; 
elsif replay position < length(simulation_ history) then 
i := replay position + 1; 
else i := replay position; -- Already at the end, stay there. 
end if; 


—~~ Advance i to the location of the next move event if there is one. 
-- Invariant: 1 <= i <= length(simulation_history) 


e := fetch(simulation_history, 1); 
while get_action(e.all) /= MoveUpdateObj loop 
if i < length(simulation_history) then 


ey ee Si ae Op 
e := fetch(simulation_history, 1); 
else -- There is no next move event, stay at the previous position. 


--~ iis at the last simulation history event and it is not 
-~ a MoveUpdateObj event, so do nothing 
-- replay position maintains the old value 
-- replay maintains either old value or origin 
return; 
end if; 
end loop; 
-- iis at a new MoveUpdateObj event position 
Oo := get_object(e.all); 
replay := get_location(o.all); 
replay position := i; 
end jaaws 12; 
end jaaws 12 pkg; 


57, LINKER OPTIONS PRAGMA PKG.ADS 
ras linker options _pragma_pkg is 


pragma 
pragma 
pragma 
pragma 
pragma 
pragma 
pragma 
pragma 
pragma 
pragma 
pragma 
pragma 
pragma 
pragma 
pragma 


Linker Options ("warrior_tae.c"); 

Linker Options ("warrior pan_gui_3.c"); 

Linker Options ("warrior creat_init.c"); 

Linker Options ("warrior _init_pan.c"); 

Linker _Options ("-I/local/tae/include”) ; 

Linker Options ("/local/tae/lib/sun4/libwpt.a") ; 
Linker Options ("/local/tae/Xtae/lib/sun4/libxtae.a"); 
Linker Options ("/local/tae/Xtae/lib/sun4/libddo.a") ; 
Linker Options ("/local/tae/lib/sun4/libwmw.a") ; 
Linker Options ("/local/tae/Xtae/lib/sun4/libIV.a"); 
Linker Options ("/local/tae/Xtae/lib/sun4/libxterm.a"); 
Linker Options ("/usr/lib/libxXm.a"); 

Linker Options ("/usr/lib/libXt.a"); 

Linker Options ("/usr/lib/libxmu.a"); 

Linker Options ("/usr/lib/libXext.a"); 
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pragma Linker Options("/usr/lib/libxli.a") ; 
pragma Linker Options ("/local/tae/lib/sun4/libtaec.a"); 
pragma Linker Options ("/local/tae/lib/sun4/libtae.a") ; 
pragma Linker Options("/usr/lib/libtermlib.a"); 
pragma Linker Options ("/usr/lib/libm.a"); 
pragma Linker Options("/usr/local/lib/libcxx.a") ; 

end linker options pragma_pkg; 


58. LOCATION TYPE PKG.ADS 


package location type pkg is 


type Location_Type is record 
X : Float := 0.0; 
Y 2: Float. +=-0:0; 
Lb + Float +=.0;0; 


end record; 
FUNCTION "+" (L1,L2 : Location Type) RETURN Location Type; 
FUNCTION "-" (L1,L2 : Location_Type) RETURN Location Type; 
FUNCTION "*" (C : Float; L : Location _Type) RETURN Location Type; 
FUNCTION Length (L : Location Type) RETURN Float; 
FUNCTION “=" (L1,L2 : Location Type) RETURN Boolean; 
FUNCTION Get_X {L : Location Type) RETURN Float; 
FUNCTION Get_Y (L : Location_Type) RETURN Float; 
FUNCTION Origin RETURN Location Type; 


FUNCTION To_Location(X, Y: Float) RETURN Location Type; 
end location type pkg; 


59. LOCATION _TYPE PKG.ADB 


WITH Ada.Numerics.Elementary Functions; --Used for Square Root 
USE Ada.Numerics.Elementary Functions; 


PACKAGE BODY Location Type Pkg IS 


FUNCTION "+" (L1,L2 : Location_Type) RETURN Location Type IS 


BEGIN 
RETURN (X=> L1.X + L2.X%, Y=> L1.Y + L2.Y, Z=> Li.2 + L2.Z); 
END; 
FUNCTION “-" (Li,L2 : Location Type) RETURN Location Type IS 
BEGIN 
RETURN: (4=>> L1.K =. L2.%,. Y=> LLY =. G2. Y,. 22> bias — L222)+3 
END; 


FUNCTION. "*" (Cx Float; L.: Location: Type) RETURN Location. Type Is 
BEGIN 
RETURN “(Ker UC Dak, Yor Co Levy -2a> Co * b.273 
END; 


FUNCTION Length (L : Location Type) RETURN Float IS 
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BEGIN 
RETURN “Sqre(-(i.X. *- bak) + Ciey © Bey) + (LbsZ.* Ls2Z))¢ 


END; 
FUNCTION "=" (L1,L2 : Location Type) RETURN Boolean IS 
BEGIN 
RETURN (L1.X=L2.X AND L1.Y=L2.Y AND L1.2Z=L2.2); 
END; 


FUNCTION Get X (L : Location_Type) RETURN Float IS 
BEGIN 
RETURN L.X; 
END; 


FUNCTION Get _Y (L : Location_Type) RETURN Float IS 
BEGIN 
RETURN L.Y; 
END; 


FUNCTION Origin RETURN Location Type IS 
L : Location Type:=(X=>0.0, Y=>0.0, Z2=>0.0); 
BEGIN 
RETURN L; 
END; 


FUNCTION To Location(X, Y: Float) RETURN Location_Type IS. 
L : Location Type:=(X=>X, Y=>Y, Z=>0.0); 
BEGIN 
RETURN L; 
END; 


END Location_Type_ Pkg; 


60. LOOKAHEAD STREAM PKG.ADS 


with io exceptions; 
with delimiter pkg; use delimiter pkg; 
package lookahead _stream_pkg is 
function token return character; 
~~ Returns the next non-blank character without removing it. 
-- Raises constraint _error if no more tokens in the buffer. 


procedure skip char; -- removes the current character. 
end error: exception renames io_exceptions.end_error; 


—- Attempt to read past end of file. 
end lookahead stream pkg; 


61. LOOKAHEAD STREAM PKG.ADB 


with text_io; use text_io; 
package body lookahead_stream_pkg is 


blank: constant delimiter_array := initialize delimiter array; 
buffer: character; 
empty: boolean := true; 


-- (-empty => buffer is the next character in the stream). 


function peek return character is 

begin 
if empty then get(buffer); empty := false; end if; 
return buffer; 

end peek; 
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function token return character is 
-- Blank is a@ constant array, see top of package body. 
begin 
-- Advance the lookahead stream to a non-blank character. 
while blank(peek) loop skip char; end loop; 
-- Return the character without removing it from the stream. 
return peek; 
end token; 


procedure skip char is 


begin 
if empty then get(buffer); -- Read and discard next character. 
else empty := true; end if; -- Discard character in the buffer. 


end skip char; 
end lookahead stream pkg; 


62. NATURAL SET IO PKG.ADS 


with natural set_pkg; 
with text_io; 
with integer 10; 
package natural set _io pkg is 
procedure put(ns: in natural _ set pkg.set); 
end natural set_io pkg; 
63. NATURAL SET IO PKG.ADB 
package body natural_set_io pkg is 
package natural_io is new text_io.integer_io(NATURAL) ; 
procedure put_n(i: in natural) is 
begin 
natural _io.put (i); 
end put_n; 
procedure mput is new natural set _pkg.generic_put(put_n); 
procedure put(ns: in natural set _pkg.set) is 
begin 
mput (ns); 
end put; 
end natural_set_io_ pkg; 
64. NATURAL SET _PKG.ADS 


with set pkg; 


package natural set pkg is NEW set_pkg(NATURAL, "="); 


65. PANEL GUI_3.ADS 


with Interfaces.C; 
use Interfaces.C; 


with statistics type pkg; 
use Statistics type pkg; 
with location type pkg; 
use location type pkg; 
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package panel gui 3 is 
-- procedures for calling c routines to display info to GUI 
procedure display st_3l(statistics: in statistics type); 


procedure display re_37(replay: in location_type); 


-- procedures to be called by the c routines to handle push button events 


procedure set_user interaction; 
pragma Export(C, set_user_interaction, "set_user interaction"); 


procedure set statistics request; 
pragma Export(C, set_statistics request, "set_statistics request"); 


procedure set_replay request; 
pragma Export(C, set_replay request, "set_replay request"); 


procedure set new plan; 
pragma Export(C, set_new_plan, "set_new plan"); 


procedure end_simulation; 
pragma Import(C, end_simulation, "end simulation"); 


procedure set_x(x : in double); 
pragma Export(C, set_x, "set_x"); 


procedure set_y(y : in double); 
pragma Export(C, set_y, “set_y"); 


procedure initialize gui; 
pragma Import(C, initialize gui, "initialize gui"); 


end panel gui_3; 


66. PANEL GUI 3.ADB 


with Interfaces.C; 
use Interfaces.C; 


with statistics type pkg; 

use statistics type pkg; 

with location_type_ pkg; 

use location_type_pkg; 

with replay request_type pkg; 

use replay request type pkg; 
with statistics request type pkg; 
use statistics request_type_pkg; 
with user interaction type pkg; 
use user_interaction_type pkg; 


with get_user in 21 pkg; 
with get _st_ 27 pkg; 

with get_re 30 pkg; 

with get_x_ 65 _ pkg; 

with get_y 68 pkg; 

with enter new_plan 75 pkg; 


with CEXE: 207 
with ada.float_text_io; 
use ada.float_text_io; 
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package body panel gui _3 is 


procedure display fuel consumption(c: in double); 
pragma Import(C, display fuel consumption, "display fuel_consumption"); 


procedure display xloc(x: in double); 
pragma Import(C, display xloc, "display xloc"); 


procedure display yloc(y: in double); 
pragma Import(C, display yloc, “display yloc"); 


procedure display mover(x, y: in double); 
pragma Import(C, display mover, "display mover"); 


procedure display St. 31. (statistics: statistics type) is 
d : double := double(statistics type pkg.convert (statistics) ); 
begin 


display fuel consumption (d); 
end display st_ 31; 


procedure display re 37 (replay: location_type) is 
x, y : double; 

begin 
~~ need code to extract x, y from location type; 
-- set x, y to dummy value 5.0, -5.0 for the time being 
x := double(location_type pkg.get_x(replay)); 
y := double(location type pkg.get_y(replay)); 
display xloc(x); 
display yloc(y); 
display mover(x, y); 

end display re_ 37; 


procedure set_user interaction is 
Vw Wser interaction. type 
>= user interaction_type pkg.stop simulation; 
begin 
get_user_in 21 pkg.record_input(v); 
end set_user_ interaction ; 


procedure set statistics request is 

v : statistics request_type := statistics request_type_pkg.on; 
begin 

get_st_27 pkg.record_input(v); 
end set statistics request ; 


procedure set replay request is 

v : replay _request_type := replay request_type_pkg.on,; 
begin 

get_re 30 pkg.record_input(v); 
end set_replay request; 


procedure set_new_ plan is 
begin 

enter new plan_75_ pkg.record_input (true); 
end set_new plan; 


procedure set_x(x : in double) is 
begin 

get_x 65 pkg.record_ input (float (x)); 
end set_x; 
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procedure set_y(y : in double) is 
begin 

get_y 68 pkg.record_ input (float (y)); 
end set_y; 


end panel _gui_3; 


67. POST PROCESSOR _6 PKG.ADS 


with statistics request_type pkg; use statistics request_type_ pkg; 
with statistics type pkg; use statistics_type_pkg; 
with warrior 1 instantiations; use warrior _1 instantiations; 
with warrior 1 exceptions; use warrior_1 exceptions; 


package post_processor_6 pkg is 


procedure post _processor_6( 
statistics request: in statistics _request_type; 
simulation_history: in event_type_ sequence; . 
statistics: out statistics type ); 
end post processor _6 pkg; 


68. POST PROCESSOR _6 PKG.ADB 


with simulation _object_pkg; use simulation_object_pkg; 
with event_type_ pkg; use event_type_ pkg; 
package body post _processor_6 pkg is 


procedure post _processor_6( 
statistics request: in statistics request_type; 
simulation_history: in event_type sequence; 
statistics: out statistics type ) is 
Oo: simulation_object_ptr; 
e: event type ptr; 
fuel used: float := 0.0; 


begin 
-- This version assumes a vehicle never refuels 
for i IN 1 .. length(simulation_history) loop 
e := fetch(simulation history, i); 


if get_action(e.all) = MoveUpdateObj then 
Oo := get_object(e.all); 


fuel _ used := get_fuel used(o.all); 
end if; 
end loop; 
statistics := convert (fuel_used); 


end post_processor 6; 
end post_processor_ 6 pkg; 


69. REPLAY REQUEST _TYPE_PKG.ADS 


package replay request_type pkg is 
type replay request_type is private; 


function on return replay request type; 
function off return replay request_type; 
private 


type replay request_type is new boolean; 
end replay request_type_pkg; 
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70. REPLAY REQUEST TYPE PKG.ADB 
package body replay request type pkg is 


function on return replay request _ type is 
begin 

return true; 
end on; 


function off return replay request type is 
begin 
return false; 


end off; 
end replay request type pkg; 


71. SCENARIO TYPE PKG.ADS 
with Simulation_Object_Pkg; use Simulation_Object_ Pkg; 
package scenario type pkg is 

type scenario type is private; 

PROCEDURE Initialize Scenario(Scl : OUT Scenario Type); 

function empty scenario return scenario type; 


function is empty(SCl : Scenario Type) return boolean; 


function get unit(SCl =: Scenario Type) ‘RETURN Simulation Object. Pir; 


private 
type scenario type is record 
Scenario Name : String(1..20) := “empty scenario ee 
Unit : Simulation Object Ptr := NULL; --Now only 1 obj, 
could be List 
=-Lervein : Terrain Type; 
~-~Weather : Weather Type; 


end record; 


end scenario type pkg; 


72. SCENARIO _TYPE_PKG.ADB 


WITH Simulation _Object_Pkg.Ground_Object_Pkg.Tank Pkg; 
USE Simulation_Object_Pkg.Ground_Object_Pkg.Tank_Pkg; 


PACKAGE BODY Scenario Type Pkg IS 
function get_unit(SCl : Scenario Type) RETURN Simulation Object Ptr IS 
BEGIN 
RETURN SC1.Unit; 
END; 


function empty scenario return scenario type is 
dummy : scenario type; 
begin 
return dummy; 
end empty scenario; 


function is_empty(SCl : Scenario Type) return boolean is 
begin 

return SCl.Unit = Null? 
end is_empty; 


PROCEDURE Initialize Scenario(Scl : OUT Scenario Type) IS 
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BEGIN 
Scl.Scenario Name:="Scenario One "5 
Scl.Unit := Construct_Obj (Scheduled => False, 


Name => "MIAl1 mg 
Symbol => 1, 

Force => 1], 

Move Period => 10, 

Active => True, 


Location _x => ~100.0, 
Location_y => -100.0, 
Destination _x => 3000. 
Destination _y => 3000.0, 
Speed => 10.0, 

Max Speed => 25.0, 

Fuel => 500.0, 
Consumption => 0 36):7 


© 
a) 


END; 


END Scenario Type _ Pkg; 


73. SEQUENCE_PKG.ADS 


with natural set_pkg; 
with text_io; 
use text_io; 


generic 
type t is private; 


package sequence pkg is 

type sequence is private; 
subtype natural set is natural_set_pkg.set; 
function empty return sequence; 
procedure empty(ss : out sequence) ; 
function add(x : t; s : sequence) return sequence; 
procedure add(x : in t; s : in sequence; ss : out sequence); 
generic 

with function equal(x, y : t) return boolean is <>; 
function remove(x : t; s : sequence) return sequence; 
function append(sl, s2 : sequence) return sequence; 
procedure append(sl, s2 : in sequence; ss : out sequence); 
function fetch(s : sequence; n : natural) return t; 
procedure fetch(s : in sequence; n : in natural; tt : out t); 
function fetch(sl : sequence; low, high : natural) return sequence; 
procedure fetch(sl : in sequence; low, high : in natural; ss : out sequence); 
function length(s : sequence) return natural; 
procedure length(s : in sequence; nn : out natural); 
function domain(s : sequence) return natural set; 
procedure domain(s : in sequence; ns : out natural_set); 
generic 

with function equal(x, y : t}). return boolean is <>; 
function is in(x : ts S : sequence) return boolean; 
generic 

with function equal(x, y : t) return boolean is <>; 
function part of(sl, s2 : sequence) return boolean; 
generic 

with function equal(x, y : t) return boolean is <>; 
function generic _equal(sl, s2 : sequence) return boolean; 
generic 

with function "<" (x, y : t) return boolean is <>; 
function less than(sl, s2 : sequence) return boolean; 
generic 
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with function "<" (x, y : t) return boolean is <>; 


with function equal(x, y : t) return boolean is <>; 


function less than_or equal(sl, s2 : sequence) return boolean; 


generic 
with function "<" (x, y : t) return boolean is <>; 


function greater than(sl, s2 : sequence) return boolean; 


generic 
with function "<" (x, y : t) return boolean is <>; 


with function equal(x, y : t) return boolean is <>; 


function greater or equal(sl, s2 : sequence) return boolean; 


generic 


with function equal(x, y : t) return boolean is <>; 


function subsequence(sl, s2 : sequence) return boolean; 


generic 
with function "<" (x, y : t) return boolean is <>; 
with function successor(x : t) return t; 
function interval(xl, x2 : t) return sequence; 
generic 
type et is private; 
type st is private; 
with function f(x : et) return t; 
with function length(s : st) return natural is <>; 
with function fetch(s : st; n : natural) return et 
function apply(sl : st) return sequence; 
generic 
with function f(x, yy 2 bt): “return: t¢ 
identity : t; 
function reduce(s : sequence) return t; 
generic 
With. function f(x, y : t)-return tt; 
function reducel(s : sequence) return t; 
generic 
with procedure generate(xl : in t); 
procedure scan(s : sequence); 
generic 
with function input return t is <>; 
function generic input return sequence; 
generic 
with function input return t is <>; 
function generic file input(file = file type). return 
generic 
with procedure put(item : in t) is <>; 
procedure generic put(item : in sequence); 
generic 
with procedure put(item : int) is <>; 
procedure generic file. put (tile-;.1n, file tyoe? item 


bounds error : exception; 
empty reduction undefined : exception; 
private 


type sequence record; 
type sequence ptr is access sequence record: 
type sequence is record 
p : sequence ptr := null; 
end record; 
end sequence pkg; 


74. SEQUENCE PKG.ADB 
with lookahead stream_pkg; 


use lookahead stream pkg; 
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15. <3 


sequence; 


in sequence) ; 








package body sequence pkg is 


use natural set pkg; 


type sequence record is record 
value : t; 
rest : sequence; 

end record; 


function empty return sequence is 
S : sequence; 


begin 
return s; 
end empty; 


procedure empty(ss : out sequence) is 
begin 

SS := empty; 
end empty; 


function add({x : t; s : sequence) return sequence is 
si: sequence; 


begin 
if s = empty.then 
sl.p := new sequence record’ (value => x, rest => Ss); 


else 
Sl.p. 2:= new séquence record’ (value => s.p.value, 
rest => add(x, s.p.rest)); 
end if; 
return sl; 
end add; 


procedure add(x : in t; S : in sequence; ss : out sequence) is 


begin 
SS := add(x, s); 
end add; 
function remove(x : t; S : sequence) return sequence is 
ss >: sequence; 
local. 2° f-3= 87 
begin -- begin generator loop 
declare 


exit from_generator_ loop : exception; 
procedure generator loop _body(y : t) is 
begin 


if not equal(local x, y) then 
ss := add(y, ss); 
end if; 
end generator loop _ body; 
procedure execute generator loop is new 
scan(generator loop body); 
begin 
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execute generator loop(s); 


exception 
when exit _from_generator loop => 
nult; 

end; == Of Generator Loop 


return ss; 
end remove; 


function append(sl, s2 : sequence) return sequence is 
SS : sequence; 

begin -- begin generator loop 
declare 


exit_from_generator loop : exception; 

procedure generator loop body(x : t) is 

begin 

SS := add(x, ss); 

end generator loop body; 

procedure execute generator loop is new 

scan(generator loop body); 

begin 

execute qencrator loop (sl); 
exception 

when exit _from_generator loop => 

nul? 
end; -- of generator loop 
declare -- begin generator loop 

exit from_generator loop : exception; 

procedure generator loop body(x : t) is 

begin 

SS := add(x, ss); 

end generator loop body; 

procedure execute generator loop is new 

scan(generator loop body); 


begin 
execute generator loop(s2); 
exception 
when exit _from_generator_loop => 
193 be ae 
end; == OF QEneracor. Loop 
return ss; 
end append; 
procedure append(sl, s2 : in sequence; ss : out sequence) is 
begin 
SS := append(sl, s2); 


end append; 


function fetch(s : sequence; n : natural) return t is 


index : natural := 1; 
begin -- begin generator loop 
declare 
Generator Loop return, value. <tc; 
return from_generator loop : exception; 
exit _from_generator_ loop >: exception; 


procedure generator loop body(y : t) is 
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begin 


if index = n then 


generator loop return_value := y; 
raise return _from_ generator loop; 
end if; 
index := index + 1; 


end generator loop body; 
procedure execute generator loop is new 
scan(generator loop body); 
begin 
execute generator loop(s); 
exception 
when exit from_generator_loop => 
ey be ee Ee 
when return _from_generator_ loop => 
return generator loop return_value; 
end; -- of generator loop 
raise bounds error; 
end fetch; 


procedure fetch(s : in sequence; n: in natural; tt : out t) is 


begin 
tt := fetch(s, n); 
end fetch; 


function fetch(sl : sequence; low, high : natural) return sequence is 
ss : sequence; 


begin 
for in. Low: s.. NEgh: Loop 
ss := add(fetch(sl, i), ss); 
end loop; 
return ss; 
end fetch; 


procedure fetch(sl : in sequence; low, high : in natural; 
ss : out sequence) is 


begin 
ss := fetch(sl, low, high); 
end fetch; 


function length(s : sequence) return natural is 


index : natural := 0; 
begin -- begin generator loop 
declare 


exit from_generator_loop : exception; 

procedure generator loop body(y : t) is 

begin 

index := index + 1; 

end generator loop body; 

procedure execute generator loop is new 

scan(generator loop body); 

begin 

execute generator loop(s); 
exception 
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when exit_from_generator_ loop 
Mud ls; 
end; -- of generator loop 
return index; 
end length; 


procedure length(s : in sequence; nn : out natural) is 
begin 

nn := length(s); 
end length; 


function domain(s : sequence) return natural set is 


ns: natural set := empty; 
begin 
for i in 1 .. length(s) loop 
ns := add(i, ns); 
end loop; 


FECUEN ns; 
end domain; 


procedure domain(s : in sequence; ns : out natural set) is 
begin 
ns := domain(s); 


end domain; 


function is in(x : t; Ss : sequence) return boolean is 
16Cal (Xo) Sa 
begin -- begin generator loop 
declare 
generator loop return value : boolean; 
return_from_generator loop : exception; 
exit _from_generator loop * exception; 
procedure generator loop body(y : t) is 
begin 
if equal(local_x, y) then 
generator loop return_value := true; 
raise return_from_generator loop; 
end if; 


end generator loop body; 
procedure execute generator loop is new 
scan(generator loop body); 
begin 
execute generator loop(s); 
exception 
when exit from_generator loop => 
null; 
when return from_generator loop => 
return generator loop return value; 
end; --~ of generator loop 
return false; 
end is_in; 


function part of(sl, s2 : sequence) return boolean is 
n : natural := 0; 
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function matches at(sil,;. s2°: sequence; n- =: natural) 
return boolean is 


1 : natural := Q; 


begin 
while i < length(sl) loop 
if equal(fetch(sl, i+ 1), fetch(s2, n+ i)) then 
1 :=1+1; 


else 
return false; 
end if; 
end loop; 
return true; 
end matches at; 


begin 
while n + length(sl) <= length(s2) loop 
Ef ‘Macenes-at(sl): 62, n.-r 2) hen 
return true; 


else 
ne:=n+ iil; 
end if; 


end loop; 
return false; 
end part of; 


function generic equal(sl, s2 : sequence) return boolean is 
a: >: natural := 1; 
local s2 : sequence := s2; 


begin 
if length(s1) /= length(s2) then 
return false; 


end if; 

declare -- begin generator loop 
generator loop return value : boolean; 
return_from_generator loop : exception; 
exit _from_generator_loop > exception; 
procedure generator loop body(x : t) is 
begin 


Lf not. equal(x, ftetch{locals2,.i)) then 


generator loop return value := false; 
raise return _from_generator loop; 

end if; 

1s= 1+ I; 


end generator loop body; 
procedure execute generator loop is new 
scan(generator loop body); 


begin | 
execute generator loop(sl); 
exception 
when exit _from_generator loop => 
null; 


[4] 





when return_from_generator loop => 
Fecurn generator loop r,eturn value; 
end; -~ of generator loop 
FELUrN. LEEUE; 
end generic equal; 


function: Jess ‘Chan(sl,; S2.% sequence)--return boolean is 


i > natural = 1.3 

VY et 

local s2 i sequence <= ‘s2; 

begin ~- begin generator loop 

deciare 
generator loop return value : boolean; 
return from_generator loop : exception; 
exit from generator loop :) “eXCEDELON, 
procedure generator loop body(x : t) is 
begin 


y t= Pevtch( local $2, .2)7 
if x < y then 
generator loop return value := true; 


raise return _from_generator_ loop; 


elsif y < x then 


generator loop return value := false; 
raise return from_generator loop; 

end if; 

Loe ad, oe 1G 


end generator loop body; 
procedure execute generator loop is new 
scan (generator loop: body) 


begin 
execute generator loop(sl); 
exception 
when exit _from_ generator loop => 
null; 


when return_from_generator_ loop => 
return generator loop return_value; 
end; ~- of generator loop 
return (length(sl) < length(s2)); 
end less Than; 


function less than or equal(sl, s2 : sequence) return boolean is 
function lt is new less than; 
function seq equal is new generic equal (equal); 


begin 
return lt(sl, s2) or else seq equal(sl, s2); 
end less than_or_equal; 


function greater than(sl, s2 : sequence) return boolean is 
function lt is new less than; 


begin 


return. 1t(s2, s1)7 
end greater than; 
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function greater or equal(sl, s2 : sequence) return boolean 


function lt is new less than; 
function seq equal is new generic equal (equal); 


begin 
return 1lt(s2, sl) or else seq equal(sl, s2); 
end greater or equal; 


function subsequence(sl, s2 : sequence) return boolean is 
a >: natural := 0; 
local sl : sequence := sl; 

begin 


if sl = empty then 
return (crue)? 


end if; 

declare -- begin generator loop 
generator loop return_value : boolean; 
return from_generator_ loop : exception; 
exit _from_generator_ loop : exception; 
procedure generator loop _body(x : t) is 
begin 


if equal(x, fetch(local sl, i+ 1)) then 
1:= i?+l; 


if i = length(local_sl) then 
generator loop return value := (true); 
raise return from generator loop; 
end if; 
end if; 
end generator loop body; 
procedure execute generator loop is new 
scan(generator loop body); 
begin 
execute_generator loop(s2); 
exception 
when exit from_generator loop => 
eB el Be 
when return _from_ generator loop => 
return generator loop return value; 
end; ~~ of generator loop 
return false; 
end subsequence; 


function interval(xl, x2 : t) return sequence is 
Ss : sequence; 
yo fhe ed 


begin 
while (y < x2) loop 
ss := add(y, ss); 
y := successor (y); 
end loop; 


if y = x2 then 
ss := add(y, ss); 
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is 


end if; 
return sS; 
end interval; 


function apply(sl : st) return sequence is 
SS : sequence; 


begin 
for iinl.. length(sl) loop 
Ss := add(f(fetch(sl, i)), ss); 
end loop; 
return SS; 
end apply; 


function reduce(s : sequence) return t is 
Ks E = adentity,; 


begin -- begin generator loop 
declare 
exit from generator loop : exception; 
procedure. generator loop body(y * t) 1s 
begin 
x oF f(y, x7 
end generator loop body; 
procedure execute generator loop is new 
scan(generator loop body); 
begin 
execute generator loop(s); 
exception 
when exit _from_generator loop => 
nuit; 
end; -- of generator loop 
return xX; 
end reduce; 


function reducel(s : sequence) return t is 
x3 tC} 
1 : natural := 1; 


begin 
if s = empty then 
raise empty reduction_undefined; 


end if; 
x o=- Tetchis; 1): 
declare -- begin generator loop 


exit from generator loop : exception; 
procedure generator loop body(y : t) is 
begin 


if i> 1 then 
x se f(y, xX)? 
end if; 
5 ee a ee Og 
end generator loop body; 
procedure execute generator loop is new 
scan(generator loop body); 
begin 
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execute generator loop(s); 


exception 
when exit from_generator loop => 
nul ds 

end; -~- of generator loop 


return x; 
end reducel; 


procedure scan(s sequence) is 
ss sequence := Ss; 
begin 


while ss.p /= null loop 
generate(ss.p.value); 
SS := ss.p.rest; 
end loop; 
end scan; 


function generic input return sequence is 


x ime ele 
ss : sequence; 
begin 


if token /= ascii.l bracket then 
raise data_error; 

end if; 

skip_char; 

while token /= ascii.r bracket loop 


x-2= Lnput; 
SS := add(x, ss); 
if token = *,* then 


skip char; 


elsif token /= ascii.r_ bracket then 
raise data_error; 
end if; 
end loop; 
skip char; 
return ss; 
exception 
when others => 
raise data_error; 
end generic input; 


function generic file input(file file -Vype) 


function get_sequence is new generic_input; 


S$ : sequence; 


begin 
set input (file); 
S := get _sequence; 


set input (standard_input); 
return S$; 
end generic file input; 
is 


procedure generic put (item in sequence) 
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return sequence is 


begin 
put(asciil.1 bracket); 


if length(item) >= 1 then 
put (Cretch{item,,. 1) )3 


end if; 

FOr 2 an 2. s« Length (item) loop 
par ("ys 
put (fetch(item, i)); 

end loop; 


put (ascii.r bracket); 
end generic put; 


procedure: generic. file put (file > in tile type; 
item : in sequence) 
procedure put sequence is new generic put; 


begin 
set output (file); 
put sequence (item) ; 
set. Output (Standard output); 
end generic.fiié pur; 
end sequence pkg; 


75. SET _PKG.ADS 


with text_io; 
use text_io; 


generic 
type t is private; 
with function t_equal(x, y : t) return boolean is "="; 


package set pkg is 
type set is private; 
function empty return set; 
procedure empty(ss : out set); 
function add(x : t; s : set) return set; 


procedure add(x : in t; s : in set; ss : out set); 
function remove(x : t; s : set) return set; 
procedure remove(x : in ts; s : in set; ss : out set); 


function is_in(x : ts s : set) return boolean; 
procedure is in(x : in t; s : in set; bb : out boolean); 
function union(sl, s2 : set) return set; 
procedure union(sl, s2 : in set; ss : out set); 
function difference(sl, s2 : set) return set; 
procedure difference(sl, s2 : in set; ss : out set); 
function intersection(si, s2 : set) return set; 
procedure intersection(sl, s2 : in set; ss : out set); 
function choose(s : set) return t; 
procedure choose(s : in set; tt : out t); 
function size(s : set) return natural; 
procedure size(s : in set; nn : out natural); 
function equal(si, s2 : set) return boolean; 
procedure equal(sl, s2 : in set; bb : out boolean); 
function subset(sl, s2 : set) return boolean; 
procedure subset(sl, s2 : in set; bb : out boolean); 
generic 
with function “<" (x, y : -t) return boolean is <>; 
with function successor(x : t) return t; 
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function interval(xl, x2 : in t) return set; 
generic 
type et is private; 
type st is private; 
with function f(x : t) return et is <>; 
with function empty return st is <>; 
with function add(x : et; s : st) return st is <>; 
function apply(s : set) return st; 
generic 
with function f(x, y : t) return t; 
identity : t; 
function reduce(s : set) return t; 
generic 
With function £{x,. y st) -veturn: t; 
function reducel(s : set) return t; 
generic 
with procedure generate(xl : in t); 
procedure scan(s : set); 


empty_set > exception; 
empty _reduction_undefined : exception; 
generic 


with function input return t is <>; 
function generic _input return set; 
generic 
with function input return t is <>; 
function generic file. input (file: an file type) return. ser; 
generic 
with procedure put(item : in t) is <>; 
procedure generic put(item : in set); 
generic 
with procedure put(item : int) is <>; 
procedure generic. file put (tile: + in-tile type; item + in .set); 
private 
type set_record; 
type set_ptr is access set record; 
type set is record 
ps Set ptr s= null? 
end record; 
end set pkg; 


76. SET_PKG.ADB. 


with lookahead stream pkg; 


use lookahead _stream_pkg; 


package body set_pkg is 
type set_record is record 
value : t; 
rest : set; 
end record; 


function empty return set is 
S : set; 


begin 
return Ss; 
end empty; 


procedure empty(ss : out set) is 
begin 
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SS := empty; 
end empty; 


function add(x : t; s : set) return set is 
ss : set; 


begin 
if is; 1n{*, Ss) then 
return s; 


else 
ss.p := new set record' (value => x, rest => 8s); 
return ss; ) 
end if; 
end add; 


procedure add(x : in t; s : in set; ss : out set) is 


begin 
SS := add(x, 8S); ~ 
end add; 
function remove(x : t; s : set) return set is 
SS : set := empty; 
begin -- begin generator loop 
declare 


exit _from_generator loop : exception; 
procedure generator loop body(y : t) is 
begin 


Lf not, (t. equal (x; y)) then 
ss := add(y, ss); 

end if; 

end generator loop body; 

procedure execute generator loop is new scan(generator_ loop body); 
begin 

execute generator loop(s); 
exception 

when exit from_generator loop => 

null; 
end; -- of generator loop 
return ss; 

end remove; 


procedure remove(x : in t; $s : in set; sS : out set) is 
begin 

SS := remove(x, S); 
end remove; 


function is_in(x : t; s : set) return boolean is 


begin ~~ begin generator loop 
declare 

generator loop return_value : boolean; 

return_from_generator_loop : exception; 

exit _from_generator_ loop : exception; 

procedure generator loop body(y : t) is 

begin 

if t_equal(x, y) then 
generator loop _return_value := true; 
raise return_from_generator_ loop; 

end if; 


end generator loop body; 
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procedure execute _generator_loop is new scan(generator_loop_body) ; 
begin 
execute generator loop(s); 
exception 
when exit _from_generator_loop => 
null; 
when return _from_generator_loop => 
return generator. loop return_value; 
end; ~~ of generator loop 
return false; 
end is_in; 


procedure is in(x : in t; s : in set; bb : out boolean) is 
begin 

bb := is_in(x, Ss); 
end is_in; 


function union(sil, s2 : set) return set is 


ss ; set := empty; 
begin ~- begin generator loop 
declare 


exit _from_generator_ loop : exception; 
procedure generator loop body(y : t) is 
begin 
ss := add(y, ss); 
end generator loop body; 
procedure execute generator loop is new scan(generator_loop_body); 
begin 
execute generator _loop(sl); 
exception 
when exit from_generator_ loop => 
null; 
end; -- of generator loop 
declare -- begin generator loop 
exit from_generator_loop : exception; 
procedure generator loop body(y : t) is 
begin 
ss := add(y, ss); 
end generator loop_body; 
procedure execute generator loop is new scan(generator_loop_body); 


begin 
execute generator loop(s2); 
exception 
when exit _from_generator_loop => 
null; 
end; -~- of generator loop 


return ss; 
end union; 


procedure union(si, s2 : in set; ss : out set) is 
begin 

SS := union(sl, s2); 
end union; 


function difference(sl, s2 : set) return set is 


ss : set :;= empty; 
begin ~- begin generator loop 
declare 


exit from_generator_loop : exception; 
procedure generator loop body(y : t) is 
begin 
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if not is_in(y, s2) then 
Ss := add(y, ss); 
end if; 
end generator loop body; 
procedure execute_generator loop is new scan(generator loop body); 
begin 7 7 
execute generator loop(sl); 
exception 
when exit from_generator loop => 
null; 
end; -- of generator loop 
return ss; 
end difference; 


procedure difference(sl, s2 : in set; ss : out set) is 
begin 

ss := difference(sl, s2); 
end difference; 


function intersection(sl, s2 : set) return set is 


ss : set := empty; 
begin -- begin generator loop 
declare 


exit _from_generator loop : exception; 
procedure generator loop body(y : t) is 


begin 

if is in(y, $2) then 
Ss := add(y, ss); 

end if; 


end generator loop body; 
procedure execute_generator loop is new scan(generator loop body); 
begin 
execute generator loop(sl); 
exception 
when exit _from_generator loop => 
null; 
end; , -- of generator loop 
return SS; 
end intersection; 


procedure intersection(sl, s2 : in set; ss : out set) is 
begin 

ss := intersection(sl, s2); 
end intersection; 


function choose(s : set) return t is 
begin 
if size(s) > 0 then 
return s.p.value; 


else 
 Yvaise empty set; 
end if; 

end choose; 


procedure choose(s : in set; tt : out t) is 
begin 

tt := choose(s); 
end choose; 
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function size(s : set) return natural is 


k : natural := 0; 
begin -~- begin generator loop 
declare 


exit from generator loop : exception; 
procedure generator loop body(y : t) is 
begin 
Ken Coe RY aie ig 
end generator loop body; 
procedure execute generator loop is new scan(generator_loop_body); 
begin 
execute generator loop(s); 
exception 
when exit_from_generator_ loop => 
null; 
end; ~~ of generator loop 
return k; 
end size; 


procedure size(s : in set; nn : out natural) is 
begin 

nn := size(s); 
end size; 


function equal(sl, s2 : set) return boolean is 


begin 
return subset(sl, s2) and then subset(s2, sl); 
end equal; 


procedure equal(si, s2 : in set; bb : out boolean) is 
begin 

bb := equal(sl, s2); 
end equal; 


function subset(sl, s2 : set) return boolean is 


begin -- begin generator loop 
declare 
generator loop return_value : boolean; 
return from_generator loop : exception; 
exit from_generator_loop : exception; 
procedure generator loop _body(y : t) is 
begin 


Lf not: (1S: in(y, S2)). then 


generator loop _return_value := false; 
raise return_from_generator loop; 
end if; 


end generator loop body; 
procedure execute generator loop is new scan(generator_ loop body); 


begin 
execute_generator_loop(sl); 
exception 
when exit from_generator loop => 
null; 


when return _from_generator loop => 
return generator loop _return_value; 
end; -- of generator loop 
return true; 
end subset; 


procedure subset(si, s2 : in set; bb : out boolean) is 
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begin 
bb := subset(sl, s2); 
end subset; 


function interval(xl, x2 : in t) return set is 


SS : set := empty; 
: a := x1; 
begin 
while not (x2 < y) loop 
Ss := add(y, ss); 
y := successor(y); 
end loop; 


return ss; 
end interval; 


function apply(s : set) return st is 


SS : St := empty; 
begin ~~ begin generator loop 
declare 


exit_from_generator loop : exception; 

procedure generator loop body(y : t) is 

begin 

ss := add(fity), ss); 

end generator loop body; 

procedure execute generator _ loop is new scan(generator loop body); 
begin 

execute generator loop(s); 
exception 

when exit _from_generator loop 

null; 
end; -- of generator loop 
Fecturn ss; 

end apply; 


tI 
V 


function reduce(s : set) return t is 
xX : t := identity; 


begin -- begin generator loop 
declare 
exit _from_generator_ loop : exception; 
procedure generator loop body(y : t) is 
begin 
x := £(y, x); 
end generator loop body; 
procedure execute generator loop is new scan(generator loop body); 
begin 
execute generator loop(s); 
exception 
when exit from_generator_ loop => 
null; 
end; -- of generator loop 
return x; i 
end reduce; 


function reducel(s : set) return t is 
xs: cs 
i: natural := 1; 

begin 
if size(s) = 0 then 


raise empty reduction undefined; 


{OZ 





end.1.5; 

declare -~- begin generator loop 
exit from_generator_ loop : exception; 
procedure generator loop body(y : t) is 
begin 


1 then 
Yr 


af .2 
x 


else 
x (= LAV, x); 

end: Li? 

i := i+ 1; 

end generator loop body; 

procedure execute generator loop is new scan(generator_loop_body); 
begin 

execute generator loop(s); 
exception 

when exit from_generator_loop => 

null; 
end; -- of generator loop 
return x; 

end reducel; 


procedure scan(s : set) is 
ss : set := S; 


begin 
while ss.p /= null loop 
generate (ss.p.value) ; 
SS := ss.p.rest; 
end loop; 
end scan; 


function generic_input return set is 


Mm “.NEy 
SS : set :;= empty; 
begin 
if token /= '{' then 
raise data_error; 
end if; 


skip char; 
while token /= '"}' loop 


xX := input; 
ss := add(x, ss); 
LE token: = *)” “Ehen 


skip char; 


elsif token /= '}" then 
raise data_error; 
end if; 
end loop; 
skip char; 
return ss; 
exception 
when others => 
raise data_error; 
end generic input; 


function generic file input(file : in file_type) return set is 
function get_set is new generic_input; 
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s : set; 


begin 
set_input (file); 
S$ := get_set; 
set_input (standard input); 
return s; 
end. generic file input; 


procedure generic put(item : in set) is 
i: natural := 1; 


begin 
put (ascii.1l brace); 
declare -- begin generator loop 
return. from.generator loop =; exception; 
exit from_generator loop > exception; 
procedure generator loop body(y : t) is 
begin 


if i > 1 then 
put(", "); 
end if; 
put (vy); 
1 3:= 1 + 1; 
end generator loop body; 
procedure execute generator loop is new scan(generator loop body); 
begin 
execute generator loop(item); 
exception 
when exit from_generator loop => 
null; 
end; -~ of generator loop 
put (ascii.r brace); 
end generic put; 


procedure generic file put(file : in file type; item : in set) is 
procedure put set is new generic put; 


begin 
set_output (file); 
put_set (item); 
set output (standard output); 
end generic file put; 
end set_pkg; 


77. SIMULATION OBJECT _PKG.ADS 


-- File Name: Simulation Object Pkg.Ads 
-- Discription: This package describes the basis for the Simulation Hierarchy 


WITH game_time type pkg; USE game_time_type_pkg; 
WITH Location Type Pkg; USE Location Type Pkg; 


PACKAGE Simulation Object _Pkg IS 
TYPE Simulation _Object IS ABSTRACT TAGGED PRIVATE;-- Basis of Simulation 


Hierarchy 
TYPE Simulation _Object_Ptr IS ACCESS ALL Simulation _Object'Class; 


nc ttt tent etiam 
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-- PROCEDURE: Move Update Obj 


== PRE‘ Obj is of type Simulation _Object and exists 

= Time contains data (value is not never) 

==. (POST: Updates Object's location. Time represents when to 
aS . reschedule. 

PROCEDURE Move Update Obj (Obj : IN OUT Simulation Object; 


Time : IN OUT game_time type); 


FUNCTION Can_move(Obj : Simulation Object) RETURN boolean; 


-- FUNCTION: Copy Obj 

-- PRE: Obj is of type Simulation Object and exists 

-- Return: Makes a copy of the obj and returns a pointer to the new 
=r obj 


FUNCTION Copy _0bj(O0b} : Simulation Object) RETURN Simulation _Object_Ptr; 


== FUNCTION: Get_Is_ Scheduled 
-- PRE: Obj is of type Simulation_Object and exists 
-~ Return: Returns the value of Is Scheduled which is a boolean type 


FUNCTION Get_Is Scheduled(Obj : Simulation_Object'Class) RETURN Boolean; 


-- PROCEDURE: set. Is. Scheduled 

= PRE: , Obj is of type Simulation Object and exists 

ae POST Assigns Value to Is_ Scheduled 

PROCEDURE Set_Is_ Scheduled (0bj : IN OUT Simulation_Object'Class; 
Value : Boolean) ; 

“= FUNCTION: Get _ Destination 

-- PRE: Ob} is of type Simulation_Object and exists 

=“ Return: Returns the destination 


FUNCTION Get Destination(O0bj : Simulation Object'Class) 
RETURN Location Type; 


-- PROCEDURE: Set Destination 
~~ PRE: Obj is of type Simulation_Object and exists 
== “POST: Assigns Value to the Destination 


PROCEDURE Set Destination(Obj : in out Simulation_Object'Class; 
Value: in Location_Type); 


~~ FUNCTION: Get_Location 
-- PRE: Obj is of type Simulation Object and exists 
~~ Return: Returns the Location 
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FUNCTION Get _Location(Obj : Simulation_Object'Class) RETURN Location Type; 


-- FUNCTION: Get_Fuel Used 
-- PRE: Obj is of type Simulation_Object and exists 
-- Return: Returns the float 


FUNCTION Get_Fuel Used(Obj} : Simulation _Object) RETURN Float; 


PRIVATE 


TYPE Simulation Object IS TAGGED RECORD 


Is Scheduled | : Boolean:=False; 
Name ORE INO (ds3-20G 
Graphic Symbol : Natural; 
Force * Naturals: -=-2b. 14.6 
Move_Period >; Integer; 
Active : Boolean; --True = active part of sim, ie alive 
Location : Location Type; 
Destination : Location Type; --Could be a sequence of 
--Location_ Types 
Speed > Float; --In M/sec 
Max_ Speed : Float; --In M/sec 
END RECORD; 
END Simulation_Object_Pkgq; 
78. SIMULATION OBJECT_PKG.ADB 
= “File: Name: Simulation_Object_Pkg.Adb 
PACKAGE BODY Simulation_Object_Pkg IS 
-- PROCEDURE: Move Update Obj 
PROCEDURE Move _Update_Obj (Obj : IN OUT Simulation_Object; 
Time : IN OUT game_time_type) IS 
Time Elapsed : Float; -- In seconds 
Distance ( OF Loat; -~- In meters 
Displacement : Location Type; 
Velocity : Location_Type; 
BEGIN 


-- Stop motion if the object cannot move. 
IF not Can_move (Simulation_Object'Class(Obj)) THEN 
Obj.Speed := 0.0; 
Obj.Is Scheduled := false; 
Time := never; -- Do not reschedule a move event for this object 
return; 
END IF; 


~- How far are we 

Time Elapsed Float (Obj .Move Period); 
Displacement := Obj.Destination - Obj.Location; 
Distance := Length(Displacement) ; 


It 


-- Set the speed 
~- Future versions will take terrain and weather into account here. 
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IF Distance > Obj.Max Speed * Time Elapsed 
THEN Obj.Speed := Obj.Max Speed; 

ELSE Obj.Speed := Distance/Time Elapsed; 
END IF; 


-- Move and schedule the next move. 


Velocity := (Obj.Speed/Distance) * Displacement; 
Obj.Location := Obj.Location + (Time Elapsed * Velocity); 
Time := Time + Obj.Move Period; --Schedules next event in 


--Move Period seconds 
~- Note: the above code works without modification 


-- for both two and three dimensions. 
END Move_Update_ Obj; 


FUNCTION Can_move(Obj : Simulation_Object) RETURN boolean IS 


Min Distance : Constant Float := 10.0; 
Distance : Float; 
BEGIN 
Distance := length(Obj.Destination - Obj.Location) ; 


RETURN Obj.Active -- must be alive to move 
and then Distance > Min Distance; 
-- must not already be at the planned destination 


FUNCTION Copy Obj (Obj : Simulation_Object) RETURN Simulation_Object_Ptr IS 
BEGIN 
RETURN NULL; --All are dispatched to leaves of hierarchy 
END Copy Obj; 


FUNCTION Get _Is Scheduled(Obj : Simulation_Object'Class) RETURN Boolean IS 
BEGIN 
RETURN Obj.Is_ Scheduled; 
END Get_Is_ Scheduled; 


PROCEDURE Set_Is_ Scheduled (Obj : IN OUT Simulation Object'Class; 
Value : Boolean) IS 
BEGIN 
Obj.Is_ Scheduled := Value; 
END Set_Is_Scheduled; 


FUNCTION Get_Destination(Obj : Simulation_Object'Class) 
RETURN Location Type IS 
BEGIN 
RETURN Obj.Destination; 
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END Get_Destination; 


PROCEDURE Set_Destination(Obj : in out Simulation _Object'Class; 
Value: in Location Type) IS 
BEGIN 
Obj.Destination := Value; 
END Set Destination; 


-- FUNCTION: Get Location 
FUNCTION Get_Location(Obj : Simulation _Object'Class) RETURN Location Type IS 
BEGIN 


RETURN Obj.Location; 
END Get Location; 


== FUNCTION: Get Fuel Used 
FUNCTION Get_Fuel Used(Obj : Simulation Object) RETURN Float IS 
BEGIN 
RETURN 0.0; 


END Get_Fuel_ Used; 


END Simulation Object Pkg; 


79. SIMULATION_OBJECT_PKG-GROUND_ OBJECT _PKG.ADS 


PACKAGE Simulation_Object_Pkg.Ground Object Pkg IS 

TYPE Ground_Object IS ABSTRACT NEW Simulation Object WITH PRIVATE; 
PRIVATE 

TYPE Ground_Object IS ABSTRACT NEW Simulation_Object WITH NULL RECORD; 


END Simulation_Object_Pkg.Ground_Object_Pkg; 


80. SIMULATION OBJECT_PKG-GROUND_ OBJECT PKG- 


TANK PKG.ADS 
~- File Name: Simulation_Object_Pkg.Ground_Object_Pkg.Tank Pkg.Ads 


PACKAGE Simulation_Object_Pkg.Ground_Object_Pkg.Tank Pkg IS 


TYPE Tank_Type IS NEW Ground Object WITH PRIVATE; 


== “PROCEDURE Move Update Obj 
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~~ Description: Overloaded Simulaiton_Object's Method to work on Tank 


== Objects 
PROCEDURE Move Update Obj (Obj : IN OUT Tank_Type; 

Time : IN OUT game_time_ type); 
-- FUNCTION: Can move 


FUNCTION Can_move (Obj : Tank Type) RETURN boolean; 


-- FUNCTION: Get_Fuel_ Used 
-- Description: Overloads the SImulation_Object's Method 


FUNCTION Get Fuel Used(Obj : Tank_Type) RETURN Float; 
-- FUNCTION: Copy Obj 
-- Description: Overloads the SImulation_Object's Method 


FUNCTION Copy Obj (Obj : Tank _Type) RETURN Simulation_Object_Ptr; 


-- FUNCTION: Construct_Obj 

-- Description: Constructs a simulation obj 

FUNCTION Construct_Obj (Scheduled : Boolean; 
Name : String; 
Symbol >: Natural; 
Force : Natural; 
Move_ Period : Integer; 
Active : Boolean; 
Location_x ; Float; 
Location_y : Float; 


Destination x : Float; 
Destination_y : Float; 


Speed : Float; 
Max Speed : Float; 
Fuel : Float; 
Consumption : Float) RETURN Simulation _Object_Ptr; 


PRIVATE 


TYPE Tank Type IS NEW Ground_Object WITH RECORD 


pued : Float; --In Gallons 
Fuel Consumption : Float; ~~Gallons/Second 
Fuel Used : Float:= 0.0; 

END RECORD; 


END Simulation Object _Pkg.Ground_Object_Pkg.Tank_Pkg; 


81. SIMULATION OBJECT_PKG-GROUND_OBJECT_PKG- 
TANK PKG.ADB 
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PACKAGE BODY Simulation_Object_Pkg.Ground_Object_Pkg.Tank_Pkg IS 


Cr ee ee eee teen ee ee Re i en ne ee ee ee 


== “PROCEDURE: Move Update Obj 
PROCEDURE Move Update Obj(Obj : IN OUT Tank_Type; 
Time : IN OUT game _time_type) IS 
Time Elapsed : Float; --In Seconds 
BEGIN 


~- Stop motion if the object cannot move. 
IF not Can move (Obj) THEN 
Ob} «Speed := 0:0; 
Ob] jis scheduled «=. false; 
Time := never; -- Do not reschedule a move event for this object 
return; 
END IF; 


-- Move the tank using the general purpose move method 
-~- from the most general superclass. 
Move Update Obj (Simulation Object (Obj), Time); 


-- Now do the fuel consumption bookkeeping. 
Time Elapsed := Float (Obj.Move_ Period); 
Ob) .Fuel := Obj.Fuel - (0bj.Fuel Consumption * Time Elapsed); 
Obj.Fuel Used := Obj.Fuel Used + (Obj.Fuel Consumption 
* Time Elapsed); 
END; 


ONT ee 


ti i AR TR AR I eee ee nee n ne ee ee ee a ee ee ee ee ee ee 


FUNCTION Can move(Obj : Tank Type) RETURN boolean IS 


BEGIN 
RETURN Can move (Simulation Object (Obj)) -- must satisfy inherited 
-- general constraints 
and then Obj.Fuel > 0.0; -- must also have fuel to move 
END; 
-- FUNCTION: Get Fuel Used 


-- Description: Overloads the SImulation_Object's Method 


FUNCTION Get_Fuel Used(Obj : Tank Type) RETURN Float IS 


BEGIN 
RETURN Obj. Fuel Used; 
END; 
=-— “FUNCTION: Copy Obj 
FUNCTION Copy Obj (Obj : Tank Type) RETURN Simulation Object Ptr IS 
Obj Ptr : Simulation_Object Ptr; 
BEGIN 
Obj Ptr:= NEW Tank_Type'(Is Scheduled => Obj.Is_ scheduled, 
Name => Obj}.Name, 
Graphic Symbol => Obj.Graphic Symbol, 
Force => Obj).Force, 
Move Period => Obj .Move_ Period, 
Active => Obj.Active, 
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Location 
Destination 
Speed 
Max_Speed 
Fuel 
Fuel Consumption 
Fuel Used 
RETURN Obj Ptr; 
END; 
-- FUNCTION: Construct Obj 
-- Description: Constructs a simulation obj 
FUNCTION Construct _Obj (Scheduled Boolean; 
Name String; 
Symbol Natural; 
Force Natural; 
Move Period Integer; 
Active Boolean; 
Location X Float; 
Location_Y Float; 
Destination X Float; 
Destination Y Float; 
Speed Float; 
Max Speed Float; 
Fuel Float; 
Consumption Float) 


Obj .Location, 
Ob}.Destination, 

Obj .Speed, 

Ob} .Max_ Speed, 
Obj.Fuel, 

Obj .Fuel Consumption, 
Obj.Fuel Used); 


RETURN Simulation Object _Ptr IS 


Obj _ Ptr : Simulation _Object_Ptr; 
Location : Location_Type; 
Destination : Location_Type; 

BEGIN 


Location.X Location X; 
Location.Y Location_Y; 
Destination.X Destination X; 
Destination.Y := Destination_ oY; 
Obj Ptr:= NEW Tank _Type' (Is_ Scheduled 
Name 
Graphic Symbol 
Force 
Move_Period 
Active 
Location 
Destination 
Speed 
Max Speed 
Fuel 
Fuel Consumption 
Fuel Used 


RETURN Obj Ptr; 
END; 


END Simulation _Object_Pkg.Ground_Object_Pkg.Tank_Pkg; 


82. SORTED_LIST_PKG.ADS 


generic 

type element type is private; 

with function "<"(x, y: element_type) 
package sorted list _pkg is 

type sorted_list is private; 


16] 


return boolean; 


Scheduled, 
Name, 
Symbol, 
Force, 

Move Period, 


, Active, 


Location, 
Destination, 
Speed, 

Max Speed, 
Fuel, 
Consumption, 
0.0); 








function empty return sorted list; 
-~ Returns an empty sorted list. 


function is empty(s: sorted list) return boolean; 
~- True if and only if s has no elements. 


procedure add(s: in out sorted list; x: in element type); 
“~ § := §s U {x}. 


procedure get smallest (s: in out sorted list; x»: out element. typé); 
-- sets x to the smallest element of s and removes x from s. 
~= Palses NO Clements LES 125° empty: 


no elements: exception; 
private 
type sorted 11st ‘record is 
record 
data: element type; 
NeXt: sorted list; 
end record; ; 
-- The list is kept sorted in increasing order wrt "<". 
type sorted_list is access sorted_list_record; 
end sorted _list_pkg; 


83. SORTED _LIST_PKG.ADB 


-- generic 
aa type element_type is private; 
es with function "<"(x, y: element_type) return boolean; 
package body sorted list_pkg is 
EEeGe List: sorted Jist 3= null; 


procedure free(node: sorted list) is 


begin 
node.next := free list; 
free list := node; 

end free; 


function new _node(x: element_type; s: sorted_list) 
return sorted list is 
node: sorted_list; 
begin 
if free list = null then 
return new sorted list recora’ (data => x, next => s)% 


else node := free list; 
free: Dist. <= free 1ist.nexc; 
node.data := x; 


node.next 
return node; 
end if; 
end new_node; 


S; 


function empty return sorted_list is 
begin 

return null; 
end empty; 


function is _empty(s: sorted_list) return boolean is 
begin 

return (s = null); 
end is_empty; 
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procedure add(s: in out sorted list; x: in element_type) is 
begin 

if is_empty(s) then s := new_node(x, Ss); 

elsif x < s.data then s := new_node(x, Ss); 

else add(s.next, X); 

end if; 
end add; 


procedure get _smallest(s: in out sorted_list; x: out element_type) 
head: sorted list := Ss; 
begin 
if is_empty(s) then raise no_elements; 
else x := s.data; 
S := Ss.next; 
free (head); 
end if; 
end get_smallest; 


end sorted _list_pkg; 


84. STATISTICS REQUEST_TYPE_PKG.ADS 


package statistics request_type pkg is 
type statistics request_type is private; 


function on return statistics request_type; 
function off return statistics request_type; 
private 


type statistics _request_type is new boolean; 
end statistics request_type_pkg; 


85. STATISTICS REQUEST_TYPE_PKG.ADB 


package body statistics request_type_pkg is 


function on return statistics request_type is 
begin 

return true; 
end on; 


function off return statistics _request_type is 
begin 
return false; 


end off; 
end statistics request _type pkg; 


86. STATISTICS_TYPE_PKG.ADS 


package statistics type pkg is 
type statistics type is private; 


function convert(x: statistics type) return float; 
function convert(x: float) return statistics type; 
private 


type statistics type is new float; 
end statistics type pkg; 


87. STATISTICS TYPE PKG.ADB 
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is 





package body statistics type pkg is , 
function convert(x: statistics type) return float is 
begin 7 

return float(x); 
end convert; 


function convert(x: float) return statistics type is 
begin 7 
return. statistics type (x); 
end convert; 
end statistics type pkg; 


88. USER_INTERACTION TYPE PKG.ADS 


package user _interaction_type pkg is 
type user _interaction_type is private; 


function stop_simulation return user _interaction_type; 


private 
type user interaction_type is new boolean; 
end user interaction type pkg; 


89. USER_INTERACTION_ TYPE PKG.ADB 


package body user _interaction_type pkg is 


function stop_simulation return user interaction_type is 
begin 
return true; 
end stop simulation; 
end user _ interaction type pkg; 


90. WARRIOR GLOBAL.H 
/* *** TAR Plus Code Generator version V5.3 {Merge Token: DO NOT DELETE. ] 


/* *** File: global.h *** */ 
/* *** Generated: Oct 15: 1120508 1998 **= */ 


xk * 


/* kek kk kek kkk kkk kkk kk kkk kk kkk kk Kh kkk kk kkk kkk kkk Kk kkk hk KK KKK KKK KKK KKK 


* PURPOSE: 

* This global header file is automatically "#include"d in each panel 

* file. You can insert references to global variables here. 

* 

* REGENERATED: 

* This file is generated only once. Therefore, you may modify it without 
* impacting automatic code merge. 

* 

* CHANGE LOG: 

x 15-O06t-9¢ Initially generated...TAE 

KK RK KEKKRKE KKK KR KKK KK KK KKK KK KKK KKK KKK KKK KKK KKK KKK KKK Kh KKK KKK KKK KKK KKK KKK hk KK 
air J 
#ifndef I_GLOBAL /* prevent double include */ 
#define I GLOBAL 0 

a macros for access to parameter values 


*& 

* These macros obtain parameter values given the name of 
* a Vm object and the name string of the parameter. 

* The Vm objects are created by the Initialize All Panels 
* function for a resource file. 
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Reference scalar parameters as follows: 


StringParm(myPanelTarget, "s") -- string pointer 
IntParm(myPanelTarget, "i") ~~ integer value 
RealParm(myPanelTarget, "r”") -- real value 


For vector parameters, do the following: 


TAEINT *ival; 
ival = &IntParm(myPanelTarget, "i"); 
printf ("$d $d $d", ival[0], ival[1], ival[2]); 


+ € £ ££ £ © FF ££ FF FF F FF HF F 


#define StringParm(vmiId, name) (SVAL (*Vm_Find(vmId, name),0) ) 
#define IntParm(vmId, name) (IVAL(*Vm_Find(vmId, name), 0)) 
#define RealParm(vmiId, name) (RVAL(*Vm_Find(vmId, name), 0)) 
[* Dispatch Table typedef * 


typedef VOID (*FUNCTION PTR) (); 
typedef struct DISPATCH 


{ 

TEXT *parmName ; 
FUNCTION PTR eventFunction; 
} Dispatch; 


#define EVENT HANDLER static VOID /* a flag for documentation */ 
f= Display Id for use by direct Xlib calls: */ 


extern Display *Default Display; 


i> Externally define wptEvent so event handlers have access to it */ 


extern WptEvent wptEvent; /* event structure returned by Wpt_NextEvent */ 


#define SET APPLICATION DONE \ 
{ \ 
extern BOOL Application Done; \ 
Application_Done = TRUE; \ 
} 


#endif 


/* Automatic TAE-style indenting for Emacs users */ 
/* *** Local Variables: kek / 
/* *** mode: Cc Kee / 
/* *** c-indent-level: 0 kee &/ 
/* *** c-continued-statement-offset: 4 Kee Ok / 
4 
4 
4 


/* *** c~brace-offset: Ke / 


/* *** c-brace-imaginary-offset: kee & / 
/* *** c-argdecl-indent: kk / 
/* *** c-label-offset: ae kee / 
/* *** c-continued-brace-offset: -4 Rr ony, 
/* *** comment-column: 45 kee / 
/* *** comment-multi-Line: nil Sly J 
[= *E* ENG? kek / 
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91. WARRIOR PAN GUI 3.H 
/* *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.) *** 
ay 
pe BAH ee Pan. ‘OUi. 3,5) k= ef 
/* *** Generated: Oct 15.133 20;08 1998  *** */ 
/* We ek ke ke ke de kk ee ee de eek kk ke kk kk de kk kk KK KK KR KKK KK KK KK KKK KK KKK KKK KKK 
* PURPOSE: 
* Header file for panel: gui_3 
* 
* REGENERATED: | 
* The following WorkBench operations will cause regeneration of this file: 
im The panel's name is changed (not title) 
» FOr panels. -gua..3 
* 
* CHANGE LOG: 
m LOmOCE=96 Initially generated...TAE 
KORA KKK RK KKK KK KK KK KK kK KK RK KK KKK KKK KKK KK KK KKK KK KEK IMK KEKE KKK KK KKK 
=f 
#ifndef I_PAN gui 3 /* prevent double include */ 
#define I_PAN gui 3 0 
/* Ym objects and panel Id. +7 


ext 


/* 
ext 


/* 


ext 


/* 
ext 


/* 
ext 


/* 


ext 


/* 


af 
/*# 
#* / 
ext 


ext 
ext 


ern Id gui_3Target, gui_3View, gui_3Id; 


Dispatch table (global for calls to Wpt_NewPanel) */ 
ern struct DISPATCH gui_3Dispatch[]; 


Initialize gui_3Target and gui_3View */ 
ern VOID gui_3 Initialize Panel (); 


Create this panel and display it on the screen */ 
ern VOID gui_3 Create Panel (); 


Destroy this panel and erase it from the screen */ 
ern VOID gui. 3 Destroy Panel -()? 


Connect to this panel. Create it or change its state */ 
ern VOID gui_3 Connect _Panel (); 


extern VOID warrior Initialize All Panels (); 
extern VOID warrior Create Initial Panels (); 


MTS 10-15-98 
added the following procedure declarations 


ern VOID set_user_ interaction (); 
ern VOID set_statistics request (); 
ern VOID set_replay request (); 


extern VOID set new plan(); 


/*# 
# * / 


MTS 10-23-98 
added the following function declarations 


extern VOID set_x(); 
extern VOID set_y(); 
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FUNCTION VOID display fuel consumption (); 
FUNCTION VOID display xloc(); 

FUNCTION VOID display yloc(); 

FUNCTION VOID display mover(); 

FUNCTION VOID end_simulation(); 


fendif 


/* Butomatic TAE-style indenting for Emacs users */ 
/* *** Local Variables: eK Ok / 
/* *** mode: Cc kek / 
/* *** c-indent-level: 0 kee Oe / 
/* *** c~continued-statement-offset: 4 eS Ny 
4 
4 
4 


/* *** co-brace-offset: week / 


/* *** c-brace-imaginary-offset: eke / 
/* *** c-argdecl-indent: eR Ok / 
/* *** c-label-offset: -4 kkk &/ 
/* *** c-continued-brace-offset: -4 ka Ok / 
/* *** comment-column: 45 kee / 
/* *** comment-multi-line: nil eke & / 
fx REX RNAs Kee / 


92, WARRIOR_CREAT_INIT.C 


/* *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] *** 


fe See Pile: Warrior creat.i1nits.c =r" */ 

/* *** Generated: Oct 15 11:20:08 1998 *** */ 

/* kkk eK KKK ee KK KK KR KKK RK KK KK KKK KKK KK KK KKK KKK KK KKK K KKK KKK KKK KKK KKK KK 
* PURPOSE: 

* Displays all panels in the initial panel set of this resource file 

* 

* REGENERATED: 

* The following WorkBench operations will cause regeneration of this file: 
* A panel is added to the initial panel set 

“ A panel is deleted from the initial panel set 

i An initial panel's name is changed (not title) 

* For the set of initial panels: 

* gui_3 

* 


* CHANGE LOG: 

* MERGE NOTE: Add Change Log entries BELOW this line. 
*  5=O0CE=98 Initially generated...TAE 

* MERGE NOTE: Add Change Log entries ABOVE this line. 


KK KK KK KK KKK KKK KKK KE KK KEKE KKK KKKKKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK K 


ae 
#include "taeconf.inp"” 
#include "wotinc.inp" 
#include "warrior global.h” /* Application globals */ 


/* One include for each panel in initial panel set */ 
#include "warrior pan gui _3.h" 


/* MERGE NOTE: Add additional includes and functions BELOW this line. */ 
/* MERGE NOTE: Add additional includes and functions ABOVE this line. */ 


FUNCTION VOID warrior Create Initial Panels () 
{ 
/* MERGE NOTE: Add additional variables and code BELOW this line. */ 
/* MERGE NOTE: Add additional variables and code ABOVE this line. */ 
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/* Show panels */ 


gui_3 Create Panel (NULL, WPT PREFERRED) ; 


/* MERGE NOTE: Add additional code BELOW this line. */ 
/* MERGE NOTE: Add additional code ABOVE this line. */ 


} 


/* Automatic TAE-style indenting for Emacs users */ 


/* *** Local Variables: week / 
/* kk mode: C kkk * / 
/* *** c-indent-level: 0 we ee / 
/* *** c-continued~statement-offset: 4 wee / 
/* *** o-brace-offset: 4 BE oF 
/* *** c-prace-imaginary-offset: 4 LER eT 
/* *** c-argdecl-indent: 4 ghabeumeeey d 
/* *** c-label-offset: -4 eae J 
/* *** c-continued-brace-offset: ~4 a 
/* *** comment-column: 45 wee / 
/* *** comment-multi-line: nil week / 
/* kkk End: kk x / 


93. WARRIOR INIT PAN.C 


/* *** TARE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] *** 


ay 
fe SES Files 


/* *** Generated: 


warrior init pan.c *** */ 


Oct 15 11:20:08 1998 *** */ 


/* kkk keke keke kkk kak kkk KKK KKK KK kK KKK KKK KK KK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK KKK KKK EK 


* PURPOSE 


* Initialize all panels in the resource file. 


* 


* REGENERATED: 


* The following WorkBench operations will cause regeneration of this file: 


sj A panel is deleted 
* A new panel is added 
* A panel's name is changed (not title} 


* For the panels: 


x gui.3 
* 


* CHANGE LOG: 


* MERGE NOTE: Add Change Log entries BELOW this line. 


* 15-Oct-98 


Initially generated...TAE 


* MERGE NOTE: Add Change Log entries ABOVE this line. 


er eke Kk ka kkk kkk kkk kek Kh kkk kkk kkk KK kK Kk Kh Kk Kk KKK Kh kkk Kk KK KKK KKK KKK KKK KKK KKK KK KK 


e7 


#include 
#include 
#include 
#include 


*taeconf.inp" 
“WOULNC ein” 
"symtab.inc”™ 
“Warrior global .h” 


/* One “include" for each panel in 
"Warrior pan gui 3.h" 


#include 


/* Application globals */ 


resource file */ 


/* MERGE NOTE: Add additional includes and functions BELOW this line. */ 
/* MERGE NOTE: Add additional includes and functions ABOVE this line. */ 


FUNCTION VOID warrior Initialize All Panels (resfileSpec) 


TEXT 
{ 


*resfileSpec; 


Id vmCollection; 


168 





/* MERGE NOTE: Add additional variables and code BELOW this line. * / 
/* MERGE NOTE: Add additional variables and code ABOVE this line. x / 


/* read resource file */ 
vmCollection = Co_New (P_ABORT); 
Co_ReadFile (vmCollection, resfileSpec, P ABORT); 


/* initialize view and target Vm objects for each panel */ 
gui_3_ Initialize Panel (vmCollection) ; 


/* MERGE NOTE: Add additional code BELOW this line. */ 
/* MERGE NOTE: Add additional code ABOVE this line. */ 
} 


/* Automatic TAE-style indenting for Emacs users */ 
-/* *** Local Variables: wee: eT 
/* Kk * mode: c kkk * / 
/* *** c-indent-level: 0 BERK 
/* **k* c-continued-statement-offset: 4 Kee & / 
/* *** c-brace-offset: 4 aay | 

4 

4 


/* *** c-brace-imaginary-offset: kek ok / 


/* *** c-argdecl-indent: Samy J 
/* *** c-label-offset: -4 eee / 
/* *** c-continued-brace-offset: -4 Ee 
/* *** comment-column: 45 ab 
/* *** comment-multi-Line: na kee / 
/* *k*k End: * kk * / 


94. WARRIOR PAN GUI 3.C 


/* *** TAE Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.] *** 
ay 
[ER BIS: Pant Gui 3.6 st *7 

/* *** Generated: Nov 2 14:32:41 1998 *** */ 
/* eK ee ie Fe kek ke ae ee ke ee ke kek ke ee ee te ieee I I RR ICI I FI RO KK ke ke ke ee 
* PURPOSE: 

* This file encapsulates the TAE Plus panel: Jud 3 

* These routines enable panel initialization, creation, and destruction. 

* Access to these routines from other files is enabled by inserting 

* "#include "pan_gui_3.h""'. For more advanced manipulation of the panel 

* using the TAE routines, the panel's Id, Target, and View are provided. 

* 

* NOTES: 

* For each parameter that you have defined to be "event- -generating" in 

* this panel, there is an event handler procedure below. Each handler 

* has a name that is a concatenation of the parameter name and " AVON Gls 


* Add application-dependent logic to each event handler. (As generated 
* by the WorkBench, each event handler simply logs the occurrence of the 
* event.) 


* 


* For best automatic code merging results, you should put as many 

* modifications as possible between the lines of the MERGE NOTE comments. 
* Modifications outside the MERGE NOTEs will often merge correctly, but 

* must sometimes be merged by hand. If the modifications cannot be 

* automatically merged, a reject file (*.rej) will be generated which 

* will contain your modifications. 

* 

* REGENERATED: 

* The following WorkBench operations will cause regeneration of this file: 
i The panel's name is changed (not title) 

* For panel: gui_3 

* 
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The following WorkBench operations will also cause regeneration: 
An item is deleted 
A new item is added to this panel 
An item's name is changed (not title) 
An item's data type is changed 
An item's generates events flag is changed 
An item's valids changed (if item is type string and connected) 
An item's connection information is changed 
For the panel items: 
enter new plan, get_re_30, get_st_27, get user in 21, 
get_x, get-y 


CHANGE LOG: 

MERGE NOTE: Add Change Log entries BELOW this line. 
2-Nov-98 Initially generated...TAE 

MERGE NOTE: Add Change Log entries ABOVE this line. 


eke ke ek ek de kK aK KK KK KK a OO ok ek kek kkk kk kkk kk kkk kk ek ek kok kok kk kK 


jf 


+ + €£ F + F F FF F HF FF FF F OF OF 


#include "taeconr.ainp"” 

#include "wptinc.inp" 

#include "warrior global.h" /* Application globals */ 
#include "warrior pan_gui_ 3.h" 


/* One "include" for each connected panel */ 


/* MERGE NOTE: Add includes, vars, and functions BELOW this line. */ 
/* MERGE NOTE: Add includes, vars, and functions ABOVE this line. */ 


Id gui_3Target, gui_3View, gui_3Id; 
/* gui _3Dispatch is defined at the end of this file ey 


T* gee tO kK kt a ed de tek ee ke kk kk kk RK kk kk kk kk KK kk kk kk kk 


* Initialize the view and target of this panel. 
iy 
FUNCTION VOID gui_3 Initialize Panel (vmCollection) 
Id vmCollection; 


{ 

gui_3View = Co_Find (vmCollection, "gui_3_v"); 
gui 3Target = Co_Find (vmCollection, "gui_3_t"); 
} 


/* nn ne ee ne ee ee ee ee ee ee ee ee ee eee ee eee ee ee ee ee eee 


* Create the panel object and display it on the screen. 


* 
FUNCTION VOID gui_3 Create Panel (relativeWindow, flags) 
Window relativeWindow; 
COUNT flags; 
{ 
/* MERGE NOTE: Add code BELOW this line for gui_3 Create Panel. */ 
/* MERGE NOTE: Add code ABOVE this line for gui_3 _Create_ Panel. */ 
if (gui_3Id) 
printf ("Panel (gui_3) is already displayed.\n"); 
else 


gui_3Id = Wpt_NewPanel (Default Display, gui_3Target, gui_3View, 
relativeWindow, gui_3Dispatch, flags); 


/* ge ete te eke te Fe Fe SKI RF I FF RR III III ee eK ke ee ek ke ke kk eke ke kee tee ek ek 


* Erases a panel from the screen and de-allocate the associated panel 
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* object. 
a 
FUNCTION VOID gui_3 Destroy Panel () 


{ 
/* MERGE NOTE: Add code BELOW this line for gui_3 Destroy Panel. */ 


/* MERGE NOTE: Add code ABOVE this line for gui_3 Destroy Panel. */ 


Wpt_PanelErase(gui_3Id); 
gui_3Id=0; 
} 


/* Jee tee ete tee keke re ee eR KR II OE Se a OR RR I i eke de eek 


* Connect to this panel. Create it or change its state. 


tf ae 
FUNCTION VOID gui_3_Connect_Panel (relativeWindow, flags) 
Window relativeWindow; 
COUNT flags; 


{ . 
/* MERGE NOTE: Add code BELOW this line for gui_3 Connect_Panel. */ 
/* MERGE NOTE: Add code ABOVE this line for gui_3_Connect_Panel. */ 


if (gui_3Id) 
Wpt SetPanelState (gui_3Id, flags); 
else 
gui_3 Create Panel (relativeWindow, flags); 


} 


/* RRR KKK KKK KKK KKK KKK KK KKK KKK KK KKK KEK KKK KK KKK KKK KKK KKK KKK KKK KKEKKKEKEKEKKEKEKEKSE 


* Handle event from parameter: enter new plan 


= 
EVENT HANDLER enter _new_plan_ Event (value, count) 
TEXT *value[]; /* string pointers */ 
FUNINT count; /* num of values */ 
{ /* parm: enter _new_plan */ 


/* MERGE NOTE: Add code BELOW this line for parm: enter_new_plan. */ 
/* MERGE NOTE: Add code ABOVE this line for parm: enter new plan. */ 


set_new_plan(); 


/*# 
printf ("Panel gui_3, parm enter new_plan: value = %s\n", 
count > 0 ? value[{0] : "none"); 
# * / . 
} /* parm: enter _new_plan */ 


/* kkk kkk kkkkkkk keke kK KKK KKK KKK KKK KKK KKK KKK Kh KKK KKK kkk KKK Kk kkk hhh kkk KK KK KK 


* Handle event from parameter: get_re_30 


=7 
EVENT HANDLER get_re 30 Event (value, count) 
TEXT *value[]; /* string pointers */ 
FUNINT count; /* num of values */ 
{ /* parm: get_re 30 */ 


/* MERGE NOTE: Add code BELOW this line for parm: get_re_ 30. */ 
/* MERGE NOTE: Add code ABOVE this line for parm: get_re 30. */ 


set replay request(); 
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/*# 
printf ("Panel gui_3, parm get_re 30: value = $s\n", 
count > 0 ? value[0] : "none"); 
#* / 
} /* parm: get_re 30 */ 


/* RAEKKKKRKRKKKEKKKKKEKKE KKK KKK K KKK Kk KKK KEK KKK KK KK KKK KKK KKK KKK KKK KKK KKK 


* Handle event from parameter: get_st_27 


ae 4 
EVENT HANDLER get _st_27 Event (value, count) 
TEXT *value[]; /* string pointers */ 
FUNINT count; /* num of values */ 
{ /* parm: get_st_27 */ 


/* MERGE NOTE: Add code BELOW this line for parm: get st 27. */ 
/* MERGE NOTE: Add code ABOVE this line for parm: get _st_27. */ 


set_ statistics request (); 


/*# 
printf ("Panel gui_3, parm get_st 27: value = %s\n", 
count > 0 ? value[0] : "none"); 


} /* parm: get_st_27 */ 


/* kkekkekkkkke kk kkk kkk kk kkk kk kkk hk kkk kkk KKK KKK KKK KKK KKK KKK KKK KKK KKK KKK KK Kk 


* Handle event from parameter: get_user_ in 21 


es 
EVENT HANDLER get_user_in 21 Event (value, count) 
TEXT *value[]; /* string pointers */ 
FUNINT count; /* num of values 1 
{ /* parm: get_user in 21 */ 


/* MERGE NOTE: Add code BELOW this line for parm: get_user_in 21. */ 
/* MERGE NOTE: Add code ABOVE this line for parm: get_user_in 21. */ 


set_user interaction(); 
/*# 
printf ("Panel gui_3, parm. get user in 21: value = %s\n", 
count > 0 ? value[0] : "none"™); 
} /* parm: get_user_in_21 */ 


/* kKkekk kkk kkk k kkk kk keh kkk keke kkk KKK Kk Kk KK KKK KKK KKK KKK KKK KKK KK KKK KK KKK KKK KK 


* Handle event from parameter: get_x 


i 4 
EVENT HANDLER get_x Event (value, count) 
TAEFLOAT value[]; /* real vector a 
FUNINT count; /* num of values i 
{ J*- parm: -getcx */ 


/* MERGE NOTE: Add code BELOW this line for parm: get_x. */ 
/* MERGE NOTE: Add code ABOVE this line for parm: get_x. */ 


set_x( (double) value[0]); 
/* # 
printf ("Panel gui_3, parm get_x: value = %f\n", 


count > 0 ? value[0] : 0); 


} /* parm: get _x */ 
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/* kkk KKK KKK KKK KKK KKK KKK KKK KK KKK KKK Kk kkk kkk kkk Kh Kk kkk KKK KKK KR KKK KK KKK KKK 


* Handle event from parameter: get_y 


i 
EVENT HANDLER get_y Event (value, count) 
TAE FLOAT value[]; /* real vector */ 
FUNINT count; /* num of values * / 


{ ./* parm: get_y */ 
/* MERGE NOTE: Add code BELOW this line for parm: get_y. */ 
/* MERGE NOTE: Add code ABOVE this line for parm: get_y. */ 


set_y( (double) value[0]); 


/*# 
printf ("Panel gui_3, parm get_y: value = %f\n", 
count > 0°:?: “value lO]! -<--0)% 


} /* parm: get_y */ 


struct DISPATCH gui_3Dispatch[] = { 

{"enter new plan", enter _new_plan Event}, 

{"get_re 30", get_re_ 30 Event}, 

{"get st _27", get_st_27_ Event}, 

{"get_user_in 21", get_user_in 21 Event}, 

{"get_x", get_x_ Event}, 

("get yy", get_y Event), 

{NULL, NULL} /* terminator entry */ 
be 


/* MERGE NOTE: Add additional functions BELOW this line. */ 
/**# MTS 10-15-98 
added the following routines to display info to gui 
* / 
FUNCTION VOID display fuel consumption (c) 
double c; 


{ 
Wpt_ SetReal(gui_3Id, "display _st_31", (TAEFLOAT)c); 


} 


FUNCTION VOID display _xloc (x) 
double x; 


{ 
Wpt_SetReal(gui_3Id, "xloc", (TAEFLOAT) x); 


} 


FUNCTION VOID display_yloc(y) 
double y; 


{ 
Wpt_ SetReal(gui_3Id, "“yloc", (TAEFLOAT) y) ; 


} 


FUNCTION VOID display mover(x, y) 


double x, y; 

{ 
TAEFLOAT value[2]; 
value[0] = (TAEFLOAT) x; 
value[{1l] = (TAEFLOAT) y; 


Vm SetReal (gui_3Target, "display_re_ 37", 2, value, P_UPDATE) ; 
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Wpot_ParmUpdate (gui_3Id, "display re 37"); 
} 


FUNCTION VOID end_simulation() 
{ 
Wpt_PanelErase(gui_ 3id); 
Wpt_Finish(); 
SET APPLICATION DONE; 


/* MERGE NOTE: Add additional functions ABOVE this line. */ 


/* Automatic TAE-style indenting for Emacs users */ 
/* *** Tocal Variables: kee Oe / 
/* *** mode: c kkk / 
/* *** c-indent-level: 0 kek / 
/* *** c-continued-statement-offset: 4 a EL 4 
/* *** c~-brace-offset: 4 eee Oe / 
4 
4 


/* *** c-brace-imaginary-offset: MER. RS 


/* *** c-argdecl-indent: week / 
/* *** c-label-offset: -4 ae 
/* *** c-continued-brace-offset: -4 week / 
/* *** comment-column: 45 kee / 
/* *** comment-multi-line: na) Me Re Re 
/* *** End: kek / 


95. warrior_tae.c 


/* *** TAF Plus Code Generator version V5.3 [Merge Token: DO NOT DELETE.) *** 
as 
fe ERS a les Warrior .c *** <*/ 

/* *** Generated: OGe: 15 20206 2998. Fan 7 

/* KAEKKKK KK KEKE KKK KKK KKK KK KKK K KKK KKK KKK KKK KKK KKK KK KKK KKKKK KKK KK KK KAN KKK KKKESK 
* PURPOSE: 

* This the main program of an application generated by the TAE Plus Code 
* Generator. 

* 

* REGENERATED: 

* This file is generated only once. Therefore, you may modify it without 
* Impacting automatic code merge. 

* 

* NOTES: 

* To turn this into a real application, do the following: 

* 

* 1. Each panel that has event generating parameters is encapsulated by 
* a separate file, named by concatenating the string "pan_" with the 

* panel name (followed by a ".c"). Each parameter that you have defined 
* to be “event-generating”, has an event handler procedure in the 

* appropriate panel file. Each handler has a name that is a 

* concatenation of the parameter name and the string " Event™. Add 

* application-dependent logic to each event handier. (As generated by 

* the WorkBench, each event handler simply logs the occurrence of the 

* event.) 

* 

* 2. To build the program, type "make". If the symbols TAEINC, ..., 

* are not defined, the TAE shell (source) scripts $TAE/bin/csh/taesetup 

* will define them. 
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ADDITIONAL NOTES: 

1. Each event handler has two arguments: (a) the value vector 
associated with the parameter and (b) the number of components. Note 
that for scalar values, we pass the value as if it were a vector with 
count 1. 


Though it's unlikely that you are interested in the value of a button 
event parameter, the values are always passed to the event handler for 
consistency. 


2. You gain access to non-event parameters by calling the Vm package 
using the targetId Vm objects that are created in 
Initialize All Panels. There are macros defined in global.h to assist 
in accessing values in Vm objects. 


To access panel Id, target, and view, of other panels, add an 
"#include" statement for each appropriate panel header file. 


CHANGE LOG: 
15-Oct-98 Initially generated...TAE 


Kkkkk kk kkk k Kk KKK KKK KKK KKK KK KKK Kk KKK KKK KK KKK KK Kk KKK KK KKK K KK KK KKK KKK KKK KK KKK 


t+ + £ + F F + F FF F FF OF FF OF FF *F € OK OK 


™ 


#include “"taeconf.inp" 

#include "wptinc.inp" 

#include "symtab.inc" 

#include "warrior global.h" /* Application globals */ 
#include "warrior pan _gui_3.h" /* Application globalis 
iat f 

es Globally defined variables */ 


Display *Default Display; | 
WptEvent wptEvent; /* event structure returned by Wpt_NextEvent */ 
BOOL Application _Done; 


/*# MTS 10-15-98 
replace main routine by initialize gui and generated _tae event_monitor 


main (argc, argv) 


FUNINT argc; 
TEXT *argv[]; 
{ 
#* / 
CODE eventType; 
COUNT termLines, termCols; 
CODE termType; - 


/* PROGRAMMER NOTE: 
* add similar extern's for each resource file in this application 


a 
extern VOID warrior Initialize All Panels (); 
extern VOID warrior Create Initial Panels (); 
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struct DISPATCH *dp; /* working dispatch pointer */ 
struct VARIABLE *parmv; /* pointer to event VARIABLE */ 


/*# MTS 10-15-98 
add the statement void initialize gui () 
# * / 


void: Initialize: quit) 

{ 
/* initialize terminal without clearing screen */ 
t_pinit (&termLines, &termCols, &termType); 


/* permit upper/lowercase file names */ 
f force lower (FALSE); 


Default Display = Wpt_Init (NULL); 


/* PROGRAMMER NOTE: 

* To enable scripting, uncomment the following line. See the 
* taerecord man page. 

an 

/*. Wot. Sera pt inie ("warrior") se 7 


/* initialize resource file */ 

/* PROGRAMMER NOTE: 

* For each resource file in this application, calls to the appropriate 
* Initialize All Panels and Create Initial Panels must be added. 

“ys 

warrior Initialize All Panels ("warrior.res") ; 

Warrior Create Initial Panels (); 


/*# MTS 10-15-98 
add the following initialization here 


Application _Done = FALSE; 


{ee MUS 10=15=98 
commented out the loop and 
add the statment generated_tae event_monitor () 


/#* main event loop *#/ 

/#* PROGRAMMER NOTE: 

#* use SET APPLICATION DONE in "quit" event handler to exit loop. 
#* (SET APPLICATION DONE is defined in global.h) 
+i7 

while (!Application_Done) 


#* / 

void generated _tae event_monitor() 
{ 
if (Wpt_Pending()) 


{ 
eventType = Wpt_NextEvent (&wptEvent); /* get next WPT event */ 


Switch (eventType) 


{ 
case WPT PARM EVENT: 
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/* Event has occurred from a Panel Parm. Lookup the event 
* in the dispatch table and call the associated event 

* handler function. 

+7 


dp = (struct DISPATCH *) wptEvent.p userContext; 
for (; (*dp).parmName != NULL; dp++) 
if (s_equal ((*dp).parmName, wptEvent.parmName) ) 
{ 
parmv = Vm_Find (wptEvent.p dataVm, wptEvent.parmName) ; 
(*(*dp) .eventFunction) 
((*parmv).v_cvp, (*parmv).v_count) ; 

break; 
} 


break; 
case WPT FILE EVENT: 


/* PROGRAMMER NOTE: 
* Add code here to handle file events. 
* Use Wpt_AddEvent and Wpt_RemoveEvent to register and remove 
* event sources. 
ait 
printf ("No EVENT HANDLER for event from external source.\n"); 
break; 


case WPT WINDOW EVENT: 


/* PROGRAMMER NOTE: 
Add code here to handle window events. 
WPT WINDOW_EVENT can be caused by windows which you directly 
create with X (not TAE panels), or by user acknowledgement 
of a Wpt PanelMessage (therefore no default print statement 
* is generated here). 
x7 
break; 


+ £ 


case WPT TIMEOUT EVENT: 


/* PROGRAMMER NOTE: 
* Add code here to handle timeout events. 
* Timeout events occur when an application has not received any 
* user input within the interval specified by Wpt SetTimeOut. 
mi 

printf ("No EVENT HANDLER for timeout event.\n"); 

break; 


case WPT TIMER EVENT: 


/* PROGRAMMER NOTE: 
* Add code here to handle timer events. 
* Timer events occur on (or after) the interval specified when the 
* event is registered using Wpt AddTimer. Use Wpt_RemoveTimer to 
* remove timers. 
wy 

printf ("No EVENT HANDLER for event from timer source.\n"); 

break; 


default: 


printf ("Unknown WPT Event\n"); 
break; 


} 
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} 


élse if (Application_Done) 


} 


{ 


Wpt_Finish(); /* close down all display connections */ 


/* end main */ 


Automatic TAE-style indenting for Emacs users */ 


kkk 
kkk 
kk 
tok ke 
kkk 
kk & 
kkk 
kkk 
kkk 
kek 
kk * 


Kk * 


Local Variables: 

mode: 

c-indent-level: 
c-continued-statement-offset: 
c-brace-offset: 
c-brace-imaginary-offset: 
c-argdecl-indent: 
c-label-offset: 
c-continued-brace-offset: 
comment-column: 
comment-multi-line: 

End: 
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